Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 02:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(forward-visible-line): Handle nil value from

Browse source 
next-single-property-change or previous-single-property-change.
This commit is contained in:
Richard M. Stallman 1997-08-12 23:18:41 +00:00
parent 6f187d8d8a
commit d91462ce17
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/simple.el
View file

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