From ab0c195fa295409bd53367270bbcb9591071407a Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Sat, 31 Dec 2022 19:45:43 -0600 Subject: [PATCH] Added back renamed function font-lock-fontify-syntactically-region 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: remove obsolete alias, added defun for --- lisp/font-lock.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 831e603239..bb4fce64cc 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -1183,7 +1183,7 @@ font-lock-default-fontify-region (setq font-lock-syntactically-fontified end)) (font-lock-fontify-syntactic-keywords-region start end))) (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) `(jit-lock-bounds ,beg . ,end)))) @@ -1531,6 +1531,11 @@ font-lock-comment-start-skip (defvar font-lock-comment-end-skip nil "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. +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) "Put proper face on each string and comment between START and END. START should be at the beginning of a line." @@ -2363,7 +2368,6 @@ cpp-font-lock-keywords (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-fontify-syntactically-region #'font-lock-default-fontify-syntactically "29.1") (provide 'font-lock) -- 2.39.0