From: Richard M. Stallman Date: Wed, 17 Nov 1993 13:12:29 +0000 (+0000) Subject: (font-lock-hack-keywords): X-Git-Tag: emacs-19.34~10795 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2555cdec34077bd8f6bec119eeb92c42e4b10b3c;p=emacs.git (font-lock-hack-keywords): Handle next-single-property-change returning nil. --- diff --git a/lisp/font-lock.el b/lisp/font-lock.el index a2b5b7d1c4e..5081874ca90 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -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))