Mercurial > emacs
changeset 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 | f7ab34ae92bb |
| children | 38172783650b |
| files | lisp/textmodes/outline.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
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)))))