This commit is contained in:
Carsten Dominik 2010-08-27 10:02:05 +02:00
parent f0d58188ca
commit 7be6f7e3d5
1 changed files with 2 additions and 2 deletions

View File

@ -14035,7 +14035,7 @@ only headings."
(when (org-on-heading-p)
(move-marker (make-marker) (point))))))))
(defun org-find-exact-headling-in-buffer (heading &optional buffer pos-only)
(defun org-find-exact-headline-in-buffer (heading &optional buffer pos-only)
"Find node HEADING in BUFFER.
Return a marker to the heading if it was found, or nil if not.
If POS-ONLY is set, return just the position instead of a marker.
@ -14066,7 +14066,7 @@ When the target headline is found, return a marker to this location."
(message "trying %s" file)
(setq visiting (org-find-base-buffer-visiting file))
(setq buffer (or visiting (find-file-noselect file)))
(setq m (org-find-exact-headling-in-buffer
(setq m (org-find-exact-headline-in-buffer
heading buffer))
(when (and (not m) (not visiting)) (kill-buffer buffer))
(and m (throw 'found m))))))