Re: [O] org bingo

[Yasushi SHOJI]

Hi Tony,

At Thu, 20 Dec 2012 16:43:37 +1100,
Tony Day wrote:
> 
> org-random-entry: select and goto a random todo entry. Prefix allows you
> to select which todo keyword.
> 
> https://gist.github.com/4343164

love that idea!

However, I accidentally tried org-random-entry after org-agenda-exit
and got following:

  debug(error (error "Selecting deleted buffer"))
  org-compile-prefix-format(todo)
  (catch (quote exit) (org-compile-prefix-format (quote todo))...
  (let* ((today (org-today)) (date (calendar-....
  org-random-entry(nil)
  call-interactively(org-random-entry record nil)

this is because org-compile-prefix-format assumed to have
org-agenda-buffer set either 'nil' or 'live buffer', but not
'#<killedbuffer>'. I'm not sure it is good idea to fix the
org-compile-prefix-format itself or not. so I came up with the
following fix:

diff --git a/dotemacs.org b/dotemacs.org
index 302ac53..c4042a1 100644
--- a/dotemacs.org
+++ b/dotemacs.org
@@ -9,6 +9,8 @@
            (kwds org-todo-keywords-for-agenda)
            (lucky-entry nil)
            (completion-ignore-case t)
+           (org-agenda-buffer (if (buffer-live-p org-agenda-buffer)
+                                 org-agenda-buffer))
            (org-select-this-todo-keyword
             (if (stringp arg) arg
               (and arg (integerp arg) (> arg 0)

What do you think?

regards,
-- 
             yashi