diff options
| -rw-r--r-- | lisp/org/org.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org/org.el b/lisp/org/org.el index 231daa9a6a7..61bcb451d70 100644 --- a/lisp/org/org.el +++ b/lisp/org/org.el | |||
| @@ -15069,7 +15069,7 @@ a *different* entry, you cannot use these techniques." | |||
| 15069 | (if (not scope) | 15069 | (if (not scope) |
| 15070 | (progn | 15070 | (progn |
| 15071 | (org-agenda-prepare-buffers | 15071 | (org-agenda-prepare-buffers |
| 15072 | (list (buffer-file-name (current-buffer)))) | 15072 | (and buffer-file-name (list buffer-file-name))) |
| 15073 | (setq res (org-scan-tags func matcher todo-only start-level))) | 15073 | (setq res (org-scan-tags func matcher todo-only start-level))) |
| 15074 | ;; Get the right scope | 15074 | ;; Get the right scope |
| 15075 | (cond | 15075 | (cond |
| @@ -15081,7 +15081,7 @@ a *different* entry, you cannot use these techniques." | |||
| 15081 | (setq scope (org-agenda-files t)) | 15081 | (setq scope (org-agenda-files t)) |
| 15082 | (setq scope (org-add-archive-files scope))) | 15082 | (setq scope (org-add-archive-files scope))) |
| 15083 | ((eq scope 'file) | 15083 | ((eq scope 'file) |
| 15084 | (setq scope (list (buffer-file-name)))) | 15084 | (setq scope (and buffer-file-name (list buffer-file-name)))) |
| 15085 | ((eq scope 'file-with-archives) | 15085 | ((eq scope 'file-with-archives) |
| 15086 | (setq scope (org-add-archive-files (list (buffer-file-name)))))) | 15086 | (setq scope (org-add-archive-files (list (buffer-file-name)))))) |
| 15087 | (org-agenda-prepare-buffers scope) | 15087 | (org-agenda-prepare-buffers scope) |