martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(line-move): Cope if next-single-property-change

Browse Source 
or previous-single-property-change returns nil.
This commit is contained in:
Richard M. Stallman
2001-12-10 20:38:47 +00:00
parent 4febb0e77d
commit cc17378efe
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/simple.el
View File

@@ -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))