mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-05 09:12:52 +00:00
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
This commit is contained in:
parent
5bece6f014
commit
d3f210676c
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue