Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 01:34:21 +00:00
Code Issues Projects Releases Packages 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
Show stats 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))