diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-08-08 22:20:33 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-08-08 22:20:33 +0200 |
| commit | 13ddc493e4cf5ae130fc994026ff4f8bea9d213a (patch) | |
| tree | 1a9fde8998347057347e536568de9390c0cd3c2a | |
| parent | dff92f433e14579d920dce4c0506bb5876699504 (diff) | |
| download | org-mode-13ddc493e4cf5ae130fc994026ff4f8bea9d213a.tar.gz | |
Fix bugs to keep compiler happy
| -rw-r--r-- | lisp/org.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org.el b/lisp/org.el index 9a86293..af4f793 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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)))))) |