Bug: elisp links broken in agenda [6.33trans (release_6.33f.192.ge1a1)]

Bug: elisp links broken in agenda [6.33trans (release_6.33f.192.ge1a1)]

[Charles Sebold]

This is with a clean Emacs, nothing in .emacs except for what is
necessary to add my org-mode lisp directory to the load path and
(require 'org-install), Emacs pulled down from bzr this morning, and
current git download of org-mode, pulled a few minutes ago.

With an org file like this:

------------------------------------------------------------------------
* TODO Try out [[elisp:(org-version)][link problem]] if possible
------------------------------------------------------------------------

Pull this into an agenda view, then put cursor over the link and try to
follow it.  The result is as follows:

Debugger entered--Lisp error: (wrong-type-argument listp #("[[elisp:(org-version)][link problem]]" 0 22 (fontified t help-echo "LINK: elisp:(org-version)" face org-link org-no-flyspell t invisible org-link keymap (keymap (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face highlight font-lock-multiline t org-category "test") 22 23 (fontified t help-echo "LINK: elisp:(org-version)" rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) face org-link org-no-flyspell t invisible org-link keymap (keymap (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face highlight font-lock-multiline t org-category "test") 23 34 (fontified t help-echo "LINK: elisp:(org-version)" face org-link org-no-flyspell t keymap (keymap (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face highlight font-lock-multiline t org-category "test") 34 35 (fontified t help-echo "LINK: elisp:(org-version)" rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) face org-link org-no-flyspell t keymap (keymap (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face highlight font-lock-multiline t org-category "test") 35 36 (fontified t help-echo "LINK: elisp:(org-version)" face org-link org-no-flyspell t invisible org-link keymap (keymap (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face highlight font-lock-multiline t org-category "test") 36 37 (fontified t help-echo "LINK: elisp:(org-version)" rear-nonsticky (mouse-face highlight keymap invisible intangible help-echo org-linked-text) face org-link org-no-flyspell t invisible org-link keymap (keymap (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face highlight font-lock-multiline t org-category "test")))
  org-offer-links-in-entry(nil #("  test:       " 0 14 (todo-state #("TODO" 0 4 ...) type "todo" priority 1001 org-hd-marker #<marker at 1 in test.org> org-marker #<marker at 1 in test.org> help-echo "mouse-2 or RET jump to org file ~/test.org" mouse-face highlight org-complex-heading-regexp "^\\(\\*+\\)[      ]+\\(?:\\(TODO\\|DONE\\)\\>\\)?\\(?:[   ]*\\(\\[#.\\]\\)\\)?[   ]*\\(.*?\\)\\(?:[       ]+\\(:[[:alnum:]_@:]+:\\)\\)?[  ]*$" org-todo-regexp "\\<\\(TODO\\|DONE\\)\\>" org-not-done-regexp "\\<\\(TODO\\)\\>" done-face org-agenda-done face nil dotime nil extra "" time "" txt #("TODO Try out [[elisp:(org-version)][link problem]] if possible" 0 4 ... 4 13 ... 13 35 ... 35 36 ... 36 47 ... 47 48 ... 48 49 ... 49 50 ... 50 62 ...) effort-minutes nil effort nil duration nil time-of-day nil prefix-length 14 org-lowest-priority 67 org-highest-priority 65 tags nil org-category "test" ...)))
  org-agenda-open-link(nil)
  call-interactively(org-agenda-open-link nil nil)



Emacs  : GNU Emacs 23.1.91.1 (i686-pc-linux-gnu, GTK+ Version 2.18.3)
 of 2010-01-04 on captainjack
Package: Org-mode version 6.33trans (release_6.33f.192.ge1a1)

current state:
==============
(setq
 org-export-latex-after-initial-vars-hook
 '(org-beamer-after-initial-vars)
 org-agenda-files '("~/test.org")
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-export-latex-format-toc-function
 'org-export-latex-format-toc-default
 org-export-preprocess-hook '(org-export-blocks-preprocess)
 org-tab-first-hook '(org-hide-block-toggle-maybe)
 org-src-mode-hook '(org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-cycle-hook '(org-cycle-hide-archived-subtrees
 org-cycle-hide-drawers org-cycle-show-empty-lines
 org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook
 '(org-remove-file-link-modifiers)
 org-mode-hook '(#[nil "\300\301\302\303\304$\207" [org-add-hook
 change-major-mode-hook org-show-block-all append local] 5])
 org-confirm-elisp-link-function 'yes-or-no-p
 org-occur-hook '(org-first-headline-recenter)
 org-export-preprocess-before-selecting-backend-code-hook
 '(org-beamer-select-beamer-code)
 org-export-latex-final-hook '(org-beamer-amend-header
 org-beamer-fix-toc org-beamer-auto-fragile-frames
 org-beamer-place-default-actions-for-lists)
 )

Re: Bug: elisp links broken in agenda [6.33trans (release_6.33f.192.ge1a1)]

[Carsten Dominik]

Fixed, thanks.

- Carsten

On Jan 4, 2010, at 7:44 PM, Charles Sebold wrote:

> This is with a clean Emacs, nothing in .emacs except for what is
> necessary to add my org-mode lisp directory to the load path and
> (require 'org-install), Emacs pulled down from bzr this morning, and
> current git download of org-mode, pulled a few minutes ago.
>
> With an org file like this:
>
> ------------------------------------------------------------------------
> * TODO Try out [[elisp:(org-version)][link problem]] if possible
> ------------------------------------------------------------------------
>
> Pull this into an agenda view, then put cursor over the link and try  
> to
> follow it.  The result is as follows:
>
> Debugger entered--Lisp error: (wrong-type-argument listp #("[[elisp: 
> (org-version)][link problem]]" 0 22 (fontified t help-echo "LINK:  
> elisp:(org-version)" face org-link org-no-flyspell t invisible org- 
> link keymap (keymap (follow-link . mouse-face) (mouse-3 . org-find- 
> file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face highlight  
> font-lock-multiline t org-category "test") 22 23 (fontified t help- 
> echo "LINK: elisp:(org-version)" rear-nonsticky (mouse-face  
> highlight keymap invisible intangible help-echo org-linked-text)  
> face org-link org-no-flyspell t invisible org-link keymap (keymap  
> (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse)  
> (mouse-2 . org-open-at-mouse)) mouse-face highlight font-lock- 
> multiline t org-category "test") 23 34 (fontified t help-echo "LINK:  
> elisp:(org-version)" face org-link org-no-flyspell t keymap (keymap  
> (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse)  
> (mouse-2 . org-open-at-mouse)) mouse-face highlight font-lock- 
> multiline t org-category "test") 34 35 (fontified t help-echo "LINK:  
> elisp:(org-version)" rear-nonsticky (mouse-face highlight keymap  
> invisible intangible help-echo org-linked-text) face org-link org-no- 
> flyspell t keymap (keymap (follow-link . mouse-face) (mouse-3 . org- 
> find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face  
> highlight font-lock-multiline t org-category "test") 35 36  
> (fontified t help-echo "LINK: elisp:(org-version)" face org-link org- 
> no-flyspell t invisible org-link keymap (keymap (follow-link . mouse- 
> face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at- 
> mouse)) mouse-face highlight font-lock-multiline t org-category  
> "test") 36 37 (fontified t help-echo "LINK: elisp:(org-version)"  
> rear-nonsticky (mouse-face highlight keymap invisible intangible  
> help-echo org-linked-text) face org-link org-no-flyspell t invisible  
> org-link keymap (keymap (follow-link . mouse-face) (mouse-3 . org- 
> find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face  
> highlight font-lock-multiline t org-category "test")))
>  org-offer-links-in-entry(nil #("  test:       " 0 14 (todo-state  
> #("TODO" 0 4 ...) type "todo" priority 1001 org-hd-marker #<marker  
> at 1 in test.org> org-marker #<marker at 1 in test.org> help-echo  
> "mouse-2 or RET jump to org file ~/test.org" mouse-face highlight  
> org-complex-heading-regexp "^\\(\\*+\\)[      ]+\\(?:\\(TODO\\|DONE\ 
> \)\\>\\)?\\(?:[   ]*\\(\\[#.\\]\\)\\)?[   ]*\\(.*?\\)\\(?:[       ]+\ 
> \(:[[:alnum:]_@:]+:\\)\\)?[  ]*$" org-todo-regexp "\\<\\(TODO\\|DONE\ 
> \)\\>" org-not-done-regexp "\\<\\(TODO\\)\\>" done-face org-agenda- 
> done face nil dotime nil extra "" time "" txt #("TODO Try out  
> [[elisp:(org-version)][link problem]] if possible" 0 4 ... 4 13 ...  
> 13 35 ... 35 36 ... 36 47 ... 47 48 ... 48 49 ... 49 50 ... 50  
> 62 ...) effort-minutes nil effort nil duration nil time-of-day nil  
> prefix-length 14 org-lowest-priority 67 org-highest-priority 65 tags  
> nil org-category "test" ...)))
>  org-agenda-open-link(nil)
>  call-interactively(org-agenda-open-link nil nil)
>
>
>
> Emacs  : GNU Emacs 23.1.91.1 (i686-pc-linux-gnu, GTK+ Version 2.18.3)
> of 2010-01-04 on captainjack
> Package: Org-mode version 6.33trans (release_6.33f.192.ge1a1)
>
> current state:
> ==============
> (setq
> org-export-latex-after-initial-vars-hook
> '(org-beamer-after-initial-vars)
> org-agenda-files '("~/test.org")
> org-after-todo-state-change-hook '(org-clock-out-if-current)
> org-export-latex-format-toc-function
> 'org-export-latex-format-toc-default
> org-export-preprocess-hook '(org-export-blocks-preprocess)
> org-tab-first-hook '(org-hide-block-toggle-maybe)
> org-src-mode-hook '(org-src-mode-configure-edit-buffer)
> org-confirm-shell-link-function 'yes-or-no-p
> org-export-first-hook '(org-beamer-initialize-open-trackers)
> org-agenda-before-write-hook '(org-agenda-add-entry-text)
> org-cycle-hook '(org-cycle-hide-archived-subtrees
> org-cycle-hide-drawers org-cycle-show-empty-lines
> org-optimize-window-after-visibility-change)
> org-export-preprocess-before-normalizing-links-hook
> '(org-remove-file-link-modifiers)
> org-mode-hook '(#[nil "\300\301\302\303\304$\207" [org-add-hook
> change-major-mode-hook org-show-block-all append local] 5])
> org-confirm-elisp-link-function 'yes-or-no-p
> org-occur-hook '(org-first-headline-recenter)
> org-export-preprocess-before-selecting-backend-code-hook
> '(org-beamer-select-beamer-code)
> org-export-latex-final-hook '(org-beamer-amend-header
> org-beamer-fix-toc org-beamer-auto-fragile-frames
> org-beamer-place-default-actions-for-lists)
> )
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten