tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-agenda.el: Unconditionnally set ̀org-compile-prefix-format'

Browse source 
* org-agenda.el (org-diary): Don't check whether there is an
agenda buffer when trying to compile the prefix format.
(org-compile-prefix-format): Check if there is an agenda
buffer.  If not, use the current buffer.
This commit is contained in:
Bastien Guerry 2012-08-30 10:10:18 +02:00
parent 92f2e9efb2
commit b74140e1b0
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org-agenda.el
View file

@ -4883,9 +4883,7 @@ function from a program - use `org-agenda-get-day-entries' instead."
;; I am not sure if this works with sticky agendas, because the marker
;; list is then no longer a global variable.
(org-agenda-reset-markers))
;; Prevent `org-compile-prefix-format' to fail when there is no agenda
(when (buffer-live-p org-agenda-buffer)
(org-compile-prefix-format 'agenda))
(org-compile-prefix-format 'agenda)
(org-set-sorting-strategy 'agenda)
(setq args (or args '(:deadline :scheduled :timestamp :sexp)))
(let* ((files (if (and entry (stringp entry) (string-match "\\S-" entry))
@ -6180,7 +6178,7 @@ and stored in the variable `org-prefix-format-compiled'."
(setq s (replace-match "%s" t nil s))
(push varform vars))
(setq vars (nreverse vars))
(with-current-buffer org-agenda-buffer
(with-current-buffer (or org-agenda-buffer (current-buffer))
(setq org-prefix-format-compiled
(list
`((org-prefix-has-time ,org-prefix-has-time)