ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix typo

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -14035,7 +14035,7 @@ only headings."
(when (org-on-heading-p) (when (org-on-heading-p)
(move-marker (make-marker) (point)))))))) (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. "Find node HEADING in BUFFER.
Return a marker to the heading if it was found, or nil if not. 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. 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) (message "trying %s" file)
(setq visiting (org-find-base-buffer-visiting file)) (setq visiting (org-find-base-buffer-visiting file))
(setq buffer (or visiting (find-file-noselect 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)) heading buffer))
(when (and (not m) (not visiting)) (kill-buffer buffer)) (when (and (not m) (not visiting)) (kill-buffer buffer))
(and m (throw 'found m)))))) (and m (throw 'found m))))))