Fix typo
This commit is contained in:
parent
f0d58188ca
commit
7be6f7e3d5
|
@ -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))))))
|
||||
|
|
Loading…
Reference in New Issue