mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

org-clock: Fix org-agenda-prepare-buffers call

Browse Source 
* lisp/org-clock.el (org-dblock-write:clocktable): Pass buffer to
  org-agenda-prepare-buffers when buffer is not visiting file.

This surfaced as an error when 05efa7a ("Backport commit 3a5f751 from
Emacs master branch", 2015-08-08) replaced a
'(while (setq VAR (pop LIST)) BODY)' with '(dolist (VAR LIST) BODY)',
resulting in the body being executed when '(nil)' was passed to
org-agenda-prepare-buffers.
This commit is contained in:
Kyle Meyer 2015-08-09 21:29:14 -04:00
parent 04aea5ea6f
commit 11e8749102
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-clock.el
View File

@ -2419,7 +2419,8 @@ the currently selected interval size."
;; Just from the current file
(save-restriction
;; get the right range into the restriction
(org-agenda-prepare-buffers (list (buffer-file-name)))
(org-agenda-prepare-buffers (list (or (buffer-file-name)
(current-buffer))))
(cond
((not scope)) ; use the restriction as it is now
((eq scope 'file) (widen))