mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-18 10:17:03 +00:00
Code

Fix bugs to keep compiler happy

Browse Source
This commit is contained in:
Carsten Dominik 2010-08-08 22:20:33 +02:00
parent dff92f433e
commit 13ddc493e4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org.el
View File

@ -14011,9 +14011,9 @@ a priority cookie and tags in the standard locations."
(widen)
(goto-char (point-min))
(let (case-fold-search)
(if (setq p (re-search-forward
(format org-complex-heading-regexp-format
(regexp-quote heading)) nil t))
(if (re-search-forward
(format org-complex-heading-regexp-format
(regexp-quote heading)) nil t)
(if pos-only
(match-beginning 0)
(move-marker (make-marker) (match-beginning 0)))))))))
@ -14030,7 +14030,7 @@ When the target headline is found, return a marker to this location."
(setq visiting (org-find-base-buffer-visiting file))
(setq buffer (or visiting (find-file-noselect file)))
(setq m (org-find-exact-headling-in-buffer
target buffer))
heading buffer))
(when (and (not m) (not visiting)) (kill-buffer buffer))
(and m (throw 'found m))))))