procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(outline-next-visible-heading):

Browse source 
When going forward, test outline-invisible-p at start of header.
This commit is contained in:
Richard M. Stallman 2002-12-22 22:02:25 +00:00
parent fa74535d44
commit ecb2925bf0
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/textmodes/outline.el
View file

@ -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))