Mercurial > emacs
diff lisp/textmodes/outline.el @ 48930:2cbcb30abe6f
(outline-next-visible-heading):
When going forward, test outline-invisible-p at start of header.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 22 Dec 2002 22:02:25 +0000 |
parents | 8da64061d63d |
children | 5ade352e8d1c |
line wrap: on
line diff
--- a/lisp/textmodes/outline.el Sun Dec 22 22:00:44 2002 +0000 +++ b/lisp/textmodes/outline.el Sun Dec 22 22:02:25 2002 +0000 @@ -483,7 +483,9 @@ (while (and (not (eobp)) (re-search-forward (concat "^\\(?:" outline-regexp "\\)") nil 'move) - (outline-invisible-p))) + (save-excursion + (goto-char (match-beginning 0)) + (outline-invisible-p)))) (setq arg (1- arg))) (beginning-of-line))