diff options
| author | Richard M. Stallman | 1999-01-28 19:45:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-01-28 19:45:13 +0000 |
| commit | 13911e1d18d16831492ebe2c69d805c7fdd0aa8b (patch) | |
| tree | f481c0870d5ffd38cbb88d0f059db2ecb7efc985 /lisp | |
| parent | 302f2b38d094e3e8fae4af48d6c41314e757935b (diff) | |
| download | emacs-13911e1d18d16831492ebe2c69d805c7fdd0aa8b.tar.gz emacs-13911e1d18d16831492ebe2c69d805c7fdd0aa8b.zip | |
(font-lock-default-unfontify-region):
If not font-lock-syntactic-keywords, don't remove syntax-table prop.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/font-lock.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 36ed0c0570a..7dbe8d08d9c 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el | |||
| @@ -1090,7 +1090,9 @@ The value of this variable is used when Font Lock mode is turned on." | |||
| 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) |