From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 Dec 2002 22:02:25 +0000 (+0000)
Subject: (outline-next-visible-heading):
X-Git-Tag: ttn-vms-21-2-B4~11939
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecb2925bf0c20a3ab0faacb48dfc072a10d0f2b5;p=emacs.git

(outline-next-visible-heading):
When going forward, test outline-invisible-p at start of header.
---

diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el
index b857615c7a7..03281812a4f 100644
--- a/lisp/textmodes/outline.el
+++ b/lisp/textmodes/outline.el
@@ -483,7 +483,9 @@ A heading line is one that starts with a `*' (or that
     (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))