Mercurial > emacs

changeset 87881:9145a42d68ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(outline-up-heading): Fix check for top level to avoid infinite looping in hide-other.
author Martin Rudalics <rudalics@gmx.at>
date Mon, 21 Jan 2008 19:48:10 +0000
parents d9edfa21892c
children bbccb309c637
files lisp/outline.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)))