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