(font-lock-hack-keywords):

Handle next-single-property-change returning nil.
This commit is contained in:
Richard M. Stallman 1993-11-17 13:12:29 +00:00
parent d831234ba2
commit 2555cdec34

View file

@ -310,7 +310,7 @@ slow things down!")
(narrow-to-region s e)
(while (not (eobp))
(let ((next (next-single-property-change (point) 'face)))
(if (> next (point-max))
(if (or (null next) (> next (point-max)))
(setq next (point-max)))
(if (not (get-text-property (point) 'face))
(put-text-property (point) next 'face face))