Commit 167bed86 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 28636af6
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment