summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYann Hodique <yann.hodique@gmail.com>2014-10-12 15:42:04 (GMT)
committer Bastien Guerry <bzg@altern.org>2014-10-20 13:36:17 (GMT)
commitd4cce4212373ec59c25d4151f92f768dc4d67872 (patch)
tree61b0595a8b774bfe73f256318e534747f52ba888
parent25d50e1d3cf73793ccd2d2e5e162721a097e2173 (diff)
downloadorg-mode-master.zip
org-mode-master.tar.gz
org.el: Use normalized names in org-agenda-file-pHEADmaster
* lisp/org.el (org-agenda-file-p): Make sure all filenames are normalized before performing comparison.
-rwxr-xr-xlisp/org.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 1570063..e253974 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -18181,8 +18181,10 @@ used by the agenda files. If ARCHIVE is `ifmode', do this only if
"Return non-nil, if FILE is an agenda file.
If FILE is omitted, use the file associated with the current
buffer."
- (member (or file (buffer-file-name))
- (org-agenda-files t)))
+ (let ((fname (or file (buffer-file-name))))
+ (and fname
+ (member (file-truename fname)
+ (mapcar #'file-truename (org-agenda-files t))))))
(defun org-edit-agenda-file-list ()
"Edit the list of agenda files.