# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 874715550 0
# Node ID d6e501bdc16a0cc9e3cb49ca31c62c0a51a78f18
# Parent  f7ab34ae92bb4defe6e406bee3c550a2df9288c3
(outline-up-heading): Avoid infinite loop at beginning of buffer.

diff -r f7ab34ae92bb -r d6e501bdc16a lisp/textmodes/outline.el
--- 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)))))