mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-05 09:12:52 +00:00
Code Releases Activity

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

Browse source 
* 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:
Kyle Meyer 2014-04-29 15:00:37 -04:00 committed by Bastien Guerry
parent 5bece6f014
commit d3f210676c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org.el
View file

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