# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1200944890 0
# Node ID 9145a42d68aed1b9879e2363bfae08bcc4e34020
# Parent  d9edfa21892c7f66e106665edf8e4feb586bea8d
(outline-up-heading): Fix check for top level to
avoid infinite looping in hide-other.

diff -r d9edfa21892c -r 9145a42d68ae lisp/outline.el
--- a/lisp/outline.el	Mon Jan 21 14:03:09 2008 +0000
+++ b/lisp/outline.el	Mon Jan 21 19:48:10 2008 +0000
@@ -971,8 +971,8 @@
        (or (eq last-command 'outline-up-heading) (push-mark)))
   (outline-back-to-heading invisible-ok)
   (let ((start-level (funcall outline-level)))
-    (if (eq start-level 1)
-	(error "Already at top level of the outline"))
+    (when (<= start-level 1)
+      (error "Already at top level of the outline"))
     (while (and (> start-level 1) (> arg 0) (not (bobp)))
       (let ((level start-level))
 	(while (not (or (< level start-level) (bobp)))