# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 753541949 0
# Node ID 64211dda414cb6fe494296f43b6fcd5d87a07e3e
# Parent  bbe5bba17b1081e29b5e70ba4878022edefbb35c
(font-lock-hack-keywords):
Handle next-single-property-change returning nil.

diff -r bbe5bba17b10 -r 64211dda414c lisp/font-lock.el
--- a/lisp/font-lock.el	Wed Nov 17 11:25:53 1993 +0000
+++ b/lisp/font-lock.el	Wed Nov 17 13:12:29 1993 +0000
@@ -310,7 +310,7 @@
 		    (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))