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

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    06/12/22 22:57:15

Index: outline.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/outline.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- outline.el  17 Dec 2006 00:48:26 -0000      1.25
+++ outline.el  22 Dec 2006 22:57:15 -0000      1.26
@@ -652,19 +652,24 @@
   (if (< arg 0)
       (beginning-of-line)
     (end-of-line))
+  (let (found-heading-p)
   (while (and (not (bobp)) (< arg 0))
     (while (and (not (bobp))
-               (re-search-backward (concat "^\\(?:" outline-regexp "\\)")
-                                   nil 'move)
+                 (setq found-heading-p
+                       (re-search-backward
+                        (concat "^\\(?:" outline-regexp "\\)")
+                        nil 'move))
                (outline-invisible-p)))
     (setq arg (1+ arg)))
   (while (and (not (eobp)) (> arg 0))
     (while (and (not (eobp))
-               (re-search-forward (concat "^\\(?:" outline-regexp "\\)")
-                                  nil 'move)
+                 (setq found-heading-p
+                       (re-search-forward
+                        (concat "^\\(?:" outline-regexp "\\)")
+                        nil 'move))
                (outline-invisible-p (match-beginning 0))))
     (setq arg (1- arg)))
-  (beginning-of-line))
+    (if found-heading-p (beginning-of-line))))
 
 (defun outline-previous-visible-heading (arg)
   "Move to the previous heading line.