# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1008016727 0
# Node ID beab88f3e24f80e2f1657d6a5014d55d6aa9d116
# Parent  86ecd07d46fbe326ef9e79e9721b0373d6cd813f
(line-move): Cope if next-single-property-change
or previous-single-property-change returns nil.

diff -r 86ecd07d46fb -r beab88f3e24f lisp/simple.el
--- a/lisp/simple.el	Mon Dec 10 20:37:11 2001 +0000
+++ b/lisp/simple.el	Mon Dec 10 20:38:47 2001 +0000
@@ -2543,7 +2543,8 @@
 			      (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 (or (next-single-property-change (point) 'invisible)
+				   (point-max)))
 		  (goto-char (next-overlay-change (point)))))
 	      (setq arg (1- arg)))
 	    (while (< arg 0)
@@ -2558,7 +2559,8 @@
 			      (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 (or (previous-single-property-change (point) 'invisible)
+				   (point-min)))
 		  (goto-char (previous-overlay-change (point)))))
 	      (setq arg (1+ arg))))
 	  (let ((buffer-invisibility-spec nil))