Mercurial > emacs
comparison lisp/font-lock.el @ 24216:45e1b3418311
(font-lock-default-unfontify-region):
If not font-lock-syntactic-keywords, don't remove syntax-table prop.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 28 Jan 1999 19:45:13 +0000 |
| parents | c6bfff41f2b5 |
| children | 3c68ad53545e |
comparison
equal
deleted
inserted
replaced
| 24215:6e1f6e29422a | 24216:45e1b3418311 |
|---|---|
| 1088 ; (or (nth 4 state) (nth 7 state)))) | 1088 ; (or (nth 4 state) (nth 7 state)))) |
| 1089 ; (font-lock-fontify-keywords-region beg end)) | 1089 ; (font-lock-fontify-keywords-region beg end)) |
| 1090 | 1090 |
| 1091 (defun font-lock-default-unfontify-region (beg end) | 1091 (defun font-lock-default-unfontify-region (beg end) |
| 1092 (save-buffer-state nil | 1092 (save-buffer-state nil |
| 1093 (remove-text-properties beg end '(face nil syntax-table nil)))) | 1093 (if font-lock-syntactic-keywords |
| 1094 (remove-text-properties beg end '(face nil syntax-table nil)) | |
| 1095 (remove-text-properties beg end '(face nil))))) | |
| 1094 | 1096 |
| 1095 ;; Called when any modification is made to buffer text. | 1097 ;; Called when any modification is made to buffer text. |
| 1096 (defun font-lock-after-change-function (beg end old-len) | 1098 (defun font-lock-after-change-function (beg end old-len) |
| 1097 (let ((inhibit-point-motion-hooks t)) | 1099 (let ((inhibit-point-motion-hooks t)) |
| 1098 (save-excursion | 1100 (save-excursion |