diff options
| author | Juri Linkov | 2020-02-23 02:36:54 +0200 |
|---|---|---|
| committer | Juri Linkov | 2020-02-23 02:36:54 +0200 |
| commit | bce17355ac9f6a6f8ed778bd310f3baaea514270 (patch) | |
| tree | b1b5038ccc428087225018c91111c8c1948fc5b7 | |
| parent | c87a165040864919ae5ae23b97935300fa4ad119 (diff) | |
| download | emacs-bce17355ac9f6a6f8ed778bd310f3baaea514270.tar.gz emacs-bce17355ac9f6a6f8ed778bd310f3baaea514270.zip | |
* lisp/font-lock.el (font-lock-ensure): Use font-lock-specified-p (bug#39597)
| -rw-r--r-- | lisp/font-lock.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 506c888ff64..e0955b74abc 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el | |||
| @@ -1120,9 +1120,10 @@ locking for a mode, and is not meant to be called from lisp functions." | |||
| 1120 | "Make sure the region BEG...END has been fontified. | 1120 | "Make sure the region BEG...END has been fontified. |
| 1121 | If the region is not specified, it defaults to the entire accessible | 1121 | If the region is not specified, it defaults to the entire accessible |
| 1122 | portion of the buffer." | 1122 | portion of the buffer." |
| 1123 | (font-lock-set-defaults) | 1123 | (when (font-lock-specified-p t) |
| 1124 | (funcall font-lock-ensure-function | 1124 | (font-lock-set-defaults) |
| 1125 | (or beg (point-min)) (or end (point-max)))) | 1125 | (funcall font-lock-ensure-function |
| 1126 | (or beg (point-min)) (or end (point-max))))) | ||
| 1126 | 1127 | ||
| 1127 | (defun font-lock-default-fontify-buffer () | 1128 | (defun font-lock-default-fontify-buffer () |
| 1128 | "Fontify the whole buffer using `font-lock-fontify-region-function'." | 1129 | "Fontify the whole buffer using `font-lock-fontify-region-function'." |