From cc17378efe993f5eba4fa9ebb7a59f8f4c23e941 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 10 Dec 2001 20:38:47 +0000 Subject: [PATCH] (line-move): Cope if next-single-property-change or previous-single-property-change returns nil. --- lisp/simple.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 74821ae3116..cc358ae0edc 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2543,7 +2543,8 @@ Outline mode sets this." (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 @@ Outline mode sets this." (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)) -- 2.39.5