Mercurial > emacs
diff lisp/textmodes/outline.el @ 19959:d6e501bdc16a
(outline-up-heading): Avoid infinite loop at beginning of buffer.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 20 Sep 1997 00:32:30 +0000 |
parents | 170b16201f82 |
children | bf3f4dc09cc0 |
line wrap: on
line diff
--- a/lisp/textmodes/outline.el Fri Sep 19 23:07:57 1997 +0000 +++ b/lisp/textmodes/outline.el Sat Sep 20 00:32:30 1997 +0000 @@ -620,7 +620,8 @@ (> 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)))))