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

[Charles Sebold <csebold@gmail.com>]

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)
 )