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

(outline-up-heading): Avoid infinite loop at beginning of buffer.

Browse source
This commit is contained in:
Richard M. Stallman 1997-09-20 00:32:30 +00:00
parent 28636af647
commit 167bed8638
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/textmodes/outline.el
View file

@ -620,7 +620,8 @@ With argument, move up ARG levels."
(> arg 0)
(not (bobp)))
(let ((present-level (funcall outline-level)))
(while (not (< (funcall outline-level) present-level))
(while (and (not (< (funcall outline-level) present-level))
(not (bobp)))
(outline-previous-visible-heading 1))
(setq arg (- arg 1)))))