# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1040594545 0
# Node ID 2cbcb30abe6fcef1014a374c465335af9060a120
# Parent  d81c005163cbbc56a3d1bef71facc6ac0c44d8a8
(outline-next-visible-heading):
When going forward, test outline-invisible-p at start of header.

diff -r d81c005163cb -r 2cbcb30abe6f lisp/textmodes/outline.el
--- 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))