浏览代码

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))