[bug] (org-todo-list ) causes exception with sticky agenda buffers.

[Martyn Jago <martyn.jago@btinternet.com>]

Hi

I've noticed that if (org-todo-list ) is called programatically where
`org-agenda-sticky' is set to t, an exception is caused:

The exception happens in (org-prepare-agenda ):

--8<---------------cut here---------------start------------->8---
(defun org-prepare-agenda (&optional name)
  (if (org-agenda-use-sticky-p)
      (progn
	;; Popup existing buffer
	(org-prepare-agenda-window (get-buffer org-agenda-buffer-name))
	(message "Sticky Agenda buffer, use `r' to refresh")
	(throw 'exit nil))

--8<---------------cut here---------------end--------------->8---

This looks somewhat intentional.
Unfortunately this kills further execution of the calling script.

NOTE: This only appears to happen once the agenda buffer exists (and is buried).

The debug trace follows:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (no-catch exit nil)
  throw(exit nil)
  (progn (org-prepare-agenda-window (get-buffer org-agenda-buffer-name)) 
(message "Sticky Agenda buffer, use `r' to refresh") (throw (quote exit) nil))
  (if (org-agenda-use-sticky-p) (progn (org-prepare-agenda-window
  (get-buffer org-agenda-buffer-name)) (message "Sticky Agenda buffer,
  use `r' to refresh") (throw (quote exit) nil)) (setq
  org-todo-keywords-for-agenda nil) ...

--8<---------------cut here---------------end--------------->8---

Calling (org-todo-list ) interactively appears to exhibit the same behavior.

Best, Martyn

---
Org-mode version 7.8.06 (release_7.8.03.594.g013d)
GNU Emacs 24.0.94.1 (x86_64-apple-darwin, NS apple-appkit-1038.36)
 of 2012-02-28 on bob.porkrind.org