summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-12-06 23:16:55 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-12-06 23:16:55 +0100
commit3695415199898f391b28c0ba85e5dd21424c10a0 (patch)
treeb439cd5b22af31ba563a972d856fb7f9c9254c37
parent15df8db7adeb7a4847da2b8acafca430a4eecad7 (diff)
parentb570175d7628bb47b00948b3e23ff93c215d38ee (diff)
downloadorg-mode-3695415199898f391b28c0ba85e5dd21424c10a0.tar.gz
Merge branch 'maint'
-rw-r--r--lisp/org.el5
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 ()