Re: [Orgmode] [PATCH] Added backward isearch support for headings

[Carsten Dominik]

Applied, thanks.

- Carsten

On Aug 3, 2008, at 9:41 PM, Piotr Zielinski wrote:

Changed org-goto-local-search-forward-headings to support backward
search, and renamed it to org-goto-local-search-headings.
---
lisp/org.el |    8 +++++---
1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 57c6dae..62ad9ea 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -4350,7 +4350,7 @@ or nil."
  (let ((isearch-mode-map org-goto-local-auto-isearch-map)
       (isearch-hide-immediately nil)
       (isearch-search-fun-function
-        (lambda () 'org-goto-local-search-forward-headings))
+        (lambda () 'org-goto-local-search-headings))
       (org-goto-selected-point org-goto-exit-command))
    (save-excursion
      (save-window-excursion
@@ -4391,10 +4391,12 @@ or nil."
(define-key org-goto-local-auto-isearch-map "\C-i" 'isearch-other-control-char)
(define-key org-goto-local-auto-isearch-map "\C-m" 'isearch-other-control-char)

-(defun org-goto-local-search-forward-headings (string bound noerror)
+(defun org-goto-local-search-headings (string bound noerror)
  "Search and make sure that anu matches are in headlines."
  (catch 'return
-    (while (search-forward string bound noerror)
+    (while (if isearch-forward
+               (search-forward string bound noerror)
+             (search-backward string bound noerror))
      (when (let ((context (mapcar 'car (save-match-data (org-context)))))
             (and (member :headline context)
                  (not (member :tags context))))
--
1.5.2.5


_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode