diff options
| -rw-r--r-- | lisp/font-lock.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 22c716ae67e..c37a9ae916e 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el | |||
| @@ -1031,7 +1031,7 @@ This works by calling `font-lock-unfontify-region-function'." | |||
| 1031 | (funcall font-lock-unfontify-region-function beg end))) | 1031 | (funcall font-lock-unfontify-region-function beg end))) |
| 1032 | 1032 | ||
| 1033 | (defun font-lock-default-fontify-buffer () | 1033 | (defun font-lock-default-fontify-buffer () |
| 1034 | "Fontify the whole buffer using `font-lock-fontify-buffer-function'." | 1034 | "Fontify the whole buffer using `font-lock-fontify-region-function'." |
| 1035 | (let ((verbose (if (numberp font-lock-verbose) | 1035 | (let ((verbose (if (numberp font-lock-verbose) |
| 1036 | (> (buffer-size) font-lock-verbose) | 1036 | (> (buffer-size) font-lock-verbose) |
| 1037 | font-lock-verbose))) | 1037 | font-lock-verbose))) |
| @@ -1173,8 +1173,7 @@ what properties to clear before refontifying a region.") | |||
| 1173 | 1173 | ||
| 1174 | (defun font-lock-default-unfontify-region (beg end) | 1174 | (defun font-lock-default-unfontify-region (beg end) |
| 1175 | "Unfontify the text between BEG and END. | 1175 | "Unfontify the text between BEG and END. |
| 1176 | This function is the default value of the variable | 1176 | This function is the default `font-lock-unfontify-region-function'." |
| 1177 | `font-lock-unfontify-region-function'." | ||
| 1178 | (remove-list-of-text-properties | 1177 | (remove-list-of-text-properties |
| 1179 | beg end (append | 1178 | beg end (append |
| 1180 | font-lock-extra-managed-props | 1179 | font-lock-extra-managed-props |