diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-17 13:12:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-17 13:12:29 +0000 |
| commit | 2555cdec34077bd8f6bec119eeb92c42e4b10b3c (patch) | |
| tree | 38da8af2e6cd654868374be985fb3731c664a6fb | |
| parent | d831234ba20fd2cd0da0644c6631a4897fbd93b5 (diff) | |
| download | emacs-2555cdec34077bd8f6bec119eeb92c42e4b10b3c.tar.gz emacs-2555cdec34077bd8f6bec119eeb92c42e4b10b3c.tar.bz2 emacs-2555cdec34077bd8f6bec119eeb92c42e4b10b3c.zip | |
(font-lock-hack-keywords):
Handle next-single-property-change returning nil.
| -rw-r--r-- | lisp/font-lock.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |