summaryrefslogtreecommitdiff
path: root/lisp/font-lock.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2018-12-18 23:05:36 -0500
committerStefan Monnier <monnier@iro.umontreal.ca>2018-12-18 23:05:36 -0500
commitbb55d384cdb19a7af0da0c3cdd00ca6967ddd1a9 (patch)
tree92b34234c2480d586a804dfdfad8856a7644e195 /lisp/font-lock.el
parentfb16313025dcbe2f010a79072536aeab000eaf80 (diff)
downloademacs-bb55d384cdb19a7af0da0c3cdd00ca6967ddd1a9.tar.gz
* lisp/font-lock.el (font-lock-ensure-function): Fix bug#33798
Diffstat (limited to 'lisp/font-lock.el')
-rw-r--r--lisp/font-lock.el9
1 files changed, 2 insertions, 7 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index b4cf5b0387d..f50a7150aad 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1093,14 +1093,9 @@ accessible portion of the current buffer."
(or beg (point-min)) (or end (point-max)))))
(defvar font-lock-ensure-function
- (lambda (_beg _end)
+ (lambda (beg end)
(unless font-lock-fontified
- (font-lock-default-fontify-buffer)
- (unless font-lock-mode
- ;; If font-lock is not enabled, we don't have the hooks in place to
- ;; track modifications, so a subsequent call to font-lock-ensure can't
- ;; assume that the fontification is still valid.
- (setq font-lock-fontified nil))))
+ (font-lock-fontify-region beg end)))
"Function to make sure a region has been fontified.
Called with two arguments BEG and END.")