diff options
| author | Richard M. Stallman | 1993-11-17 13:12:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-17 13:12:29 +0000 |
| commit | 2555cdec34077bd8f6bec119eeb92c42e4b10b3c (patch) | |
| tree | 38da8af2e6cd654868374be985fb3731c664a6fb | |
| parent | d831234ba20fd2cd0da0644c6631a4897fbd93b5 (diff) | |
| download | emacs-2555cdec34077bd8f6bec119eeb92c42e4b10b3c.tar.gz 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!") | |||
| 310 | (narrow-to-region s e) | 310 | (narrow-to-region s e) |
| 311 | (while (not (eobp)) | 311 | (while (not (eobp)) |
| 312 | (let ((next (next-single-property-change (point) 'face))) | 312 | (let ((next (next-single-property-change (point) 'face))) |
| 313 | (if (> next (point-max)) | 313 | (if (or (null next) (> next (point-max))) |
| 314 | (setq next (point-max))) | 314 | (setq next (point-max))) |
| 315 | (if (not (get-text-property (point) 'face)) | 315 | (if (not (get-text-property (point) 'face)) |
| 316 | (put-text-property (point) next 'face face)) | 316 | (put-text-property (point) next 'face face)) |