ソースを参照

org-find-exact-heading-in-directory: Use full path

* lisp/org.el (org-find-exact-heading-in-directory): Use full path for
files.

When the path is not included, `org-find-exact-heading-in-directory'
will fail when the current value of `default-directory' is different
from the argument DIR.

TINYCHANGE
Kyle Meyer 11 年 前
コミット
d3f210676c
1 ファイル変更1 行追加1 行削除
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

@@ -16136,7 +16136,7 @@ a priority cookie and tags in the standard locations."
   "Find Org node headline HEADING in all .org files in directory DIR.
   "Find Org node headline HEADING in all .org files in directory DIR.
 When the target headline is found, return a marker to this location."
 When the target headline is found, return a marker to this location."
   (let ((files (directory-files (or dir default-directory)
   (let ((files (directory-files (or dir default-directory)
-				nil "\\`[^.#].*\\.org\\'"))
+				t "\\`[^.#].*\\.org\\'"))
         file visiting m buffer)
         file visiting m buffer)
     (catch 'found
     (catch 'found
       (while (setq file (pop files))
       (while (setq file (pop files))