From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 12 Aug 1997 23:18:41 +0000 (+0000)
Subject: (forward-visible-line): Handle nil value from
X-Git-Tag: emacs-20.1~622
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d91462ce17bc0f747ab77a67aa496ce970fe707f;p=emacs.git

(forward-visible-line): Handle nil value from
next-single-property-change or previous-single-property-change.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index a00368e47a5..a676353fa56 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1202,9 +1202,11 @@ If ARG is zero, move to the beginning of the current line."
 			      prop
 			    (or (memq prop buffer-invisibility-spec)
 				(assq prop buffer-invisibility-spec)))))
-	      (if (get-text-property (point) 'invisible)
-		  (goto-char (next-single-property-change (point) 'invisible))
-		(goto-char (next-overlay-change (point))))
+	      (goto-char
+	       (if (get-text-property (point) 'invisible)
+		   (or (next-single-property-change (point) 'invisible)
+		       (point-max))
+		 (next-overlay-change (point))))
 	      (or (zerop (forward-line 1))
 		  (signal 'end-of-buffer nil)))
 	    (setq arg (1- arg)))
@@ -1221,9 +1223,11 @@ If ARG is zero, move to the beginning of the current line."
 			      prop
 			    (or (memq prop buffer-invisibility-spec)
 				(assq prop buffer-invisibility-spec)))))
-	      (if (get-text-property (1- (point)) 'invisible)
-		  (goto-char (previous-single-property-change (point) 'invisible))
-		(goto-char (previous-overlay-change (point))))
+	      (goto-char
+	       (if (get-text-property (1- (point)) 'invisible)
+		   (or (previous-single-property-change (point) 'invisible)
+		       (point-min))
+		 (previous-overlay-change (point))))
 	      (or (zerop (forward-line -1))
 		  (signal 'beginning-of-buffer nil)))
 	    (setq first nil)