[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Carsten Dominik
Subject: Re: [Orgmode] [PATCH] Added backward isearch support for headings
Date: Wed, 3 Sep 2008 11:36:51 +0200

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)
-        (lambda () 'org-goto-local-search-forward-headings))
+        (lambda () 'org-goto-local-search-headings))
       (org-goto-selected-point org-goto-exit-command))
@@ -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))))

Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]