Re: [Orgmode] Bug: i in agenda complains mark is not active now [6.33trans (release_6.33c.26.ga839)]

[Bernt Hansen]

If you hit i on the first line of the agenda you get

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  calendar-gregorian-from-absolute(nil)
  (setq d1 (calendar-gregorian-from-absolute (get-text-property ... ...)) d2 
(and (ignore-errors ...) (save-excursion ... ...) 
(calendar-gregorian-from-absolute dp)))
  (if (equal (buffer-name) "*Calendar*") (setq d1 (calendar-cursor-to-date t) 
d2 (car calendar-mark-ring)) (setq d1 (calendar-gregorian-from-absolute ...) d2 
(and ... ... ...)))
  (let (d1 d2 char (text "") dp) (if (equal ... "*Calendar*") (setq d1 ... d2 
...) (setq d1 ... d2 ...)) (message "Diary entry: [d]ay [a]nniversary [b]lock 
[j]ump to date tree") (setq char (read-char-exclusive)) (cond (... ... ...) 
(... ... ... ...) (... ... ... ...) (... ... ... ...) (t ...)))
  org-agenda-diary-entry-in-org-file()
  (if (not (eq org-agenda-diary-file ...)) (org-agenda-diary-entry-in-org-file) 
(require (quote diary-lib)) (let* (... ... ... ... ...) (unless cmd ...) 
(unless ... ...) (let ... ...)))
  org-agenda-diary-entry()
  call-interactively(org-agenda-diary-entry)
  recursive-edit()
  byte-code("Æ @Ç=ƒ!ÈÉÊ\"ˆËÉ!‰A@)¢Ì=ƒ!ÈÍÊ\"ˆÎ!ˆÏ ˆÐ        !ˆ\fƒcÑed\"
VƒWebˆÒ
¥yˆ`dbˆÒ
¥
Zyˆ`|ˆ)ÓcˆebˆÔÕÖ \"ˆ× ˆÔØ!ˆÙÊÔØ!ˆŠÚ ˆ+ه" [unread-command-char 
debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 
debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode 
debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string 
kill-emacs "" nil recursive-edit middlestart buffer-read-only standard-output] 
4)
  debug(error (mark-inactive))
  signal(mark-inactive nil)
  mark()
  (and (mark) (get-text-property (mark) (quote day)) 
(calendar-gregorian-from-absolute (get-text-property ... ...)))
  (setq d1 (calendar-gregorian-from-absolute (get-text-property ... ...)) d2 
(and (mark) (get-text-property ... ...) (calendar-gregorian-from-absolute ...)))
  (if (equal (buffer-name) "*Calendar*") (setq d1 (calendar-cursor-to-date t) 
d2 (car calendar-mark-ring)) (setq d1 (calendar-gregorian-from-absolute ...) d2 
(and ... ... ...)))
  (let (d1 d2 char (text "")) (if (equal ... "*Calendar*") (setq d1 ... d2 ...) 
(setq d1 ... d2 ...)) (message "Diary entry: [d]ay [a]nniversary [b]lock [j]ump 
to date tree") (setq char (read-char-exclusive)) (cond (... ... ...) (... ... 
... ...) (... ... ... ...) (... ... ... ...) (t ...)))
  org-agenda-diary-entry-in-org-file()
  (if (not (eq org-agenda-diary-file ...)) (org-agenda-diary-entry-in-org-file) 
(require (quote diary-lib)) (let* (... ... ... ... ...) (unless cmd ...) 
(unless ... ...) (let ... ...)))
  org-agenda-diary-entry()
  call-interactively(org-agenda-diary-entry)

and if you hit i on the last line of the agenda you get

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  calendar-gregorian-from-absolute(nil)
  (setq d1 (calendar-gregorian-from-absolute (get-text-property ... ...)) d2 
(and (ignore-errors ...) (save-excursion ... ...) 
(calendar-gregorian-from-absolute dp)))
  (if (equal (buffer-name) "*Calendar*") (setq d1 (calendar-cursor-to-date t) 
d2 (car calendar-mark-ring)) (setq d1 (calendar-gregorian-from-absolute ...) d2 
(and ... ... ...)))
  (let (d1 d2 char (text "") dp) (if (equal ... "*Calendar*") (setq d1 ... d2 
...) (setq d1 ... d2 ...)) (message "Diary entry: [d]ay [a]nniversary [b]lock 
[j]ump to date tree") (setq char (read-char-exclusive)) (cond (... ... ...) 
(... ... ... ...) (... ... ... ...) (... ... ... ...) (t ...)))
  org-agenda-diary-entry-in-org-file()
  (if (not (eq org-agenda-diary-file ...)) (org-agenda-diary-entry-in-org-file) 
(require (quote diary-lib)) (let* (... ... ... ... ...) (unless cmd ...) 
(unless ... ...) (let ... ...)))
  org-agenda-diary-entry()
  call-interactively(org-agenda-diary-entry)

-Bernt


Bernt Hansen <be...@norang.ca> writes:

> Carsten Dominik <carsten.domi...@gmail.com> writes:
>
>> I cannot reproduce this.  Can you please send a backtrace?
>>
>> - Carsten
>
> I can't reproduce it with the tip of master today either so I think
> it's fixed.  It's broken on the commit I was on yesterday which is
>
> 1bb0df0 (Allow diary entry insertion at top-level, 2009-11-19)
>
> Debugger entered--Lisp error: (mark-inactive)
>   signal(mark-inactive nil)
>   mark()
>   (and (mark) (get-text-property (mark) (quote day)) 
> (calendar-gregorian-from-absolute (get-text-property ... ...)))
>   (setq d1 (calendar-gregorian-from-absolute (get-text-property ... ...)) d2 
> (and (mark) (get-text-property ... ...) (calendar-gregorian-from-absolute 
> ...)))
>   (if (equal (buffer-name) "*Calendar*") (setq d1 (calendar-cursor-to-date t) 
> d2 (car calendar-mark-ring)) (setq d1 (calendar-gregorian-from-absolute ...) 
> d2 (and ... ... ...)))
>   (let (d1 d2 char (text "")) (if (equal ... "*Calendar*") (setq d1 ... d2 
> ...) (setq d1 ... d2 ...)) (message "Diary entry: [d]ay [a]nniversary [b]lock 
> [j]ump to date tree") (setq char (read-char-exclusive)) (cond (... ... ...) 
> (... ... ... ...) (... ... ... ...) (... ... ... ...) (t ...)))
>   org-agenda-diary-entry-in-org-file()
>   (if (not (eq org-agenda-diary-file ...)) 
> (org-agenda-diary-entry-in-org-file) (require (quote diary-lib)) (let* (... 
> ... ... ... ...) (unless cmd ...) (unless ... ...) (let ... ...)))
>   org-agenda-diary-entry()
>   call-interactively(org-agenda-diary-entry)
>
> -Bernt
>
>>
>> On Nov 19, 2009, at 5:26 PM, Bernt Hansen wrote:
>>
>>>
>>> Remember to cover the basics, that is, what you expected to happen and
>>> what in fact did happen.  You don't know how to make a good report?
>>> See
>>>
>>>     http://orgmode.org/manual/Feedback.html#Feedback
>>>
>>> Your bug report will be posted to the Org-mode mailing list.
>>> ------------------------------------------------------------------------
>>> When org-agenda-diary-file is set to a special org file for diary
>>> entries and transient mark mode is enabled 'i' in the agenda fails
>>> with 'mark is not active now'
>>>
>>> My workaround for this is C-SPC to set the mark anywhere legal in the
>>> agenda display (ie not on the first or last line) and then hit 'i'
>>> to insert my diary entries.
>>>
>>> -Bernt
>>>
>>> Emacs  : GNU Emacs 22.2.1 (i486-pc-linux-gnu, GTK+ Version 2.12.11)
>>> of 2008-11-09 on raven, modified by Debian
>>> Package: Org-mode version 6.33trans (release_6.33c.26.ga839)
>>>
>>>
>>> _______________________________________________
>>> Emacs-orgmode mailing list
>>> Remember: use `Reply All' to send replies to the list.
>>> Emacs-orgmode@gnu.org
>>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>
>> - Carsten


_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode