🚀 go-pugleaf

In GNU Emacs 19.21.1 of Thu Nov 18 1993 on caffeine (usg-unix-v)

Line 312 or so of font-lock.el looks like this:
		      (let ((next (next-single-property-change (point) 'face)))
			(if (> next (point-max))
			    (setq next (point-max)))
			...
Unfortunately next-single-property-change returns nil, not > (point-max) 
if there are no more property changes.  So the failure test is
incorrect.  See patch below, which modifies it to test for null first.

-- Gary Oberbrunner (garyo@avs.com)

diff -c font-lock.el.~1~ font-lock.el
*** font-lock.el.~1~	Tue Nov 16 07:15:12 1993
--- font-lock.el	Tue Aug  9 15:13:23 1994
***************
*** 310,316 ****
  		    (narrow-to-region s e)
  		    (while (not (eobp))
  		      (let ((next (next-single-property-change (point) 'face)))
! 			(if (> next (point-max))
  			    (setq next (point-max)))
  			(if (not (get-text-property (point) 'face))
  			    (put-text-property (point) next 'face face))
--- 310,317 ----
  		    (narrow-to-region s e)
  		    (while (not (eobp))
  		      (let ((next (next-single-property-change (point) 'face)))
! 			(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))