diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-20 00:32:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-20 00:32:30 +0000 |
| commit | c5fc8fe0bafe5d2aa9759208199f174e92b89949 (patch) | |
| tree | 8ecedb242b519611831a16a8ab9b9102d086a56c | |
| parent | 3d5ca23f2721e978aaa940fea86b4443be42680e (diff) | |
| download | emacs-c5fc8fe0bafe5d2aa9759208199f174e92b89949.tar.gz | |
(outline-up-heading): Avoid infinite loop at beginning of buffer.
| -rw-r--r-- | lisp/textmodes/outline.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index f12518c4051..f9717798b3d 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el @@ -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))))) |