[Emacs-diffs] Changes to emacs/lisp/outline.el,v

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Martin Rudalics <m061211>       08/01/21 19:48:10

Index: outline.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/outline.el,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- outline.el  8 Jan 2008 20:44:47 -0000       1.35
+++ outline.el  21 Jan 2008 19:48:10 -0000      1.36
@@ -971,7 +971,7 @@
        (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)
+    (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))