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

[Carsten Dominik]

Fixed, thanks.

- Carsten

On Nov 20, 2009, at 1:14 PM, Bernt Hansen wrote:

> 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 <address@hidden> writes:
>
> > Carsten Dominik <address@hidden> 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.
> > > > address@hidden
> > > > http://lists.gnu.org/mailman/listinfo/emacs-orgmode
> > >
> > > - Carsten

- Carsten