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 | 167bed8638b0c4463753f6100fe239cdfb5c80c8 (patch) | |
| tree | d0d9aba4da9ab459c96a2f613a76d3bde513f858 | |
| parent | 28636af64754aa60c36938f88295d4dedbf8521d (diff) | |
| download | emacs-167bed8638b0c4463753f6100fe239cdfb5c80c8.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))))) |