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. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode