Mercurial > emacs
changeset 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 | d81c005163cb |
children | 0af848ed2cae |
files | lisp/textmodes/outline.el |
diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
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))