diff options
author | Richard M. Stallman <[email protected]> | 2002-12-22 22:02:25 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 2002-12-22 22:02:25 +0000 |
commit | ecb2925bf0c20a3ab0faacb48dfc072a10d0f2b5 (patch) | |
tree | 69615785676d6e8541b39b425ab75079afba68af | |
parent | fa74535d4483ab0107607da3e7a85472fb1765c4 (diff) |
(outline-next-visible-heading):
When going forward, test outline-invisible-p at start of header.
-rw-r--r-- | lisp/textmodes/outline.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index b857615c7a..03281812a4 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)) |