From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 19 Jul 1995 03:19:03 +0000 (+0000)
Subject: (outline-next-visible-heading): Rewritten to handle
X-Git-Tag: emacs-19.34~3255
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b297554a2813268c7b86d009c0c987c5f41c371b;p=emacs.git

(outline-next-visible-heading): Rewritten to handle
backwards motion and handle beg/end of buffer properly.
---

diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el
index b169396ef20..84d95ef36e7 100644
--- a/lisp/textmodes/outline.el
+++ b/lisp/textmodes/outline.el
@@ -331,16 +331,18 @@ A heading line is one that starts with a `*' (or that
   (if (< arg 0)
       (beginning-of-line)
     (end-of-line))
-  (let (found)
-    (or (while (and found (> arg 0))
-	  (setq found nil)
-	  (while (not found)
-	    (setq found
-		  (and (re-search-backward (concat "^\\(" outline-regexp "\\)")
-					   nil t)
-		       (outline-visible))))
-	  (setq arg (1- arg)))
-	(error "")))
+  (while (and (not (bobp)) (< arg 0))
+    (while (and (not (bobp))
+		(re-search-backward (concat "^\\(" outline-regexp "\\)")
+				    nil 'move)
+		(not (outline-visible))))
+    (setq arg (1+ arg)))
+  (while (and (not (eobp)) (> arg 0))
+    (while (and (not (eobp))
+		(re-search-forward (concat "^\\(" outline-regexp "\\)")
+				   nil 'move)
+		(not (outline-visible))))
+    (setq arg (1- arg)))
   (beginning-of-line))
 
 (defun outline-previous-visible-heading (arg)