diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-12-06 23:16:55 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-12-06 23:16:55 +0100 |
commit | 3695415199898f391b28c0ba85e5dd21424c10a0 (patch) | |
tree | b439cd5b22af31ba563a972d856fb7f9c9254c37 | |
parent | 15df8db7adeb7a4847da2b8acafca430a4eecad7 (diff) | |
parent | b570175d7628bb47b00948b3e23ff93c215d38ee (diff) | |
download | org-mode-3695415199898f391b28c0ba85e5dd21424c10a0.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 974e8d8..f77cd62 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7115,11 +7115,12 @@ are at least `org-cycle-separator-lines' empty lines before the headline." "Return `org-agenda-files' list, plus all open Org files. This is useful for operations that need to scan all of a user's open and agenda-wise Org files." - (let ((files (mapcar 'expand-file-name (org-agenda-files)))) + (let ((files (mapcar #'expand-file-name (org-agenda-files)))) (dolist (buf (buffer-list)) (with-current-buffer buf (when (and (derived-mode-p 'org-mode) (buffer-file-name)) - (cl-pushnew (expand-file-name (buffer-file-name)) files)))) + (cl-pushnew (expand-file-name (buffer-file-name)) files + :test #'equal)))) files)) (defsubst org-entry-beginning-position () |