mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Add back renamed function 'font-lock-fontify-syntactically-region'

Browse source 
A more accurate replacement for font-lock-fontify-syntactically-region
would be a function that funcalls the
font-lock-fontify-syntactically-function variable. That way, callers
of the function can inherit new behavior, if the value of that variable
changes.

* lisp/font-lock.el (font-lock-fontify-syntactically-region):
Add function back, remove its obsolete alias.

Copyright-paperwork-exempt: yes
This commit is contained in:
Benson Chu 2022-12-31 19:45:43 -06:00 • committed by Eli Zaretskii
parent b1aa720671
commit da96a1fd74
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/font-lock.el
View file

@ -1183,7 +1183,7 @@ This function is the default `font-lock-fontify-region-function'."
(setq font-lock-syntactically-fontified end)) (setq font-lock-syntactically-fontified end))
(font-lock-fontify-syntactic-keywords-region start end))) (font-lock-fontify-syntactic-keywords-region start end)))
(unless font-lock-keywords-only (unless font-lock-keywords-only
(funcall font-lock-fontify-syntactically-function beg end loudly)) (font-lock-fontify-syntactically-region beg end loudly))
(font-lock-fontify-keywords-region beg end loudly) (font-lock-fontify-keywords-region beg end loudly)
`(jit-lock-bounds ,beg . ,end)))) `(jit-lock-bounds ,beg . ,end))))
@ -1531,6 +1531,12 @@ START should be at the beginning of a line."
(defvar font-lock-comment-end-skip nil (defvar font-lock-comment-end-skip nil
"If non-nil, Font Lock mode uses this instead of `comment-end-skip'.") "If non-nil, Font Lock mode uses this instead of `comment-end-skip'.")
(defun font-lock-fontify-syntactically-region (beg end &optional loudly)
"Syntactically fontify the text between BEG and END.
If LOUDLY is non-nil, print status messages while fontifying.
This works by calling `font-lock-fontify-syntactically-function'."
(funcall font-lock-fontify-syntactically-function beg end loudly))
(defun font-lock-default-fontify-syntactically (start end &optional loudly) (defun font-lock-default-fontify-syntactically (start end &optional loudly)
"Put proper face on each string and comment between START and END. "Put proper face on each string and comment between START and END.
START should be at the beginning of a line." START should be at the beginning of a line."
@ -2369,7 +2375,6 @@ in which C preprocessor directives are used, e.g. `asm-mode' and
(define-obsolete-function-alias 'font-lock-after-fontify-buffer #'ignore "29.1") (define-obsolete-function-alias 'font-lock-after-fontify-buffer #'ignore "29.1")
(define-obsolete-function-alias 'font-lock-after-unfontify-buffer #'ignore "29.1") (define-obsolete-function-alias 'font-lock-after-unfontify-buffer #'ignore "29.1")
(define-obsolete-function-alias 'font-lock-fontify-syntactically-region #'font-lock-default-fontify-syntactically "29.1")
(provide 'font-lock) (provide 'font-lock)