Re: [PATCH] Added alias for removed font-lock function

["Benson Chu" <bensonchu457@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 743 bytes --]

Er, I mean this.

Thanks!
Benson

On Sat, Dec 31, 2022, at 10:53 PM, Benson Chu wrote:
> Something like this?
>
> Thanks!
> Benson
>
> On Thu, Dec 22, 2022, at 8:49 AM, Stefan Monnier wrote:
>>> +(define-obsolete-function-alias 'font-lock-fontify-syntactically-region #'font-lock-default-fontify-syntactically "29.1")
>>
>>
>> Indeed, tho, could you try and fit this within 80 columns?
>> Also, I think the better replacement for the old
>> `font-lock-fontify-syntactically-region` could be
>> (funcall font-lock-fontify-syntactically-function BEG END), which by
>> default will end up calling `font-lock-default-fontify-syntactically`.
>>
>>
>>         Stefan
> Attachments:
> * 0001-Added-back-renamed-function-font-lock-fontify-syntac.patch

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Added-back-renamed-function-font-lock-fontify-syntac.patch --]
[-- Type: text/x-patch; name="0001-Added-back-renamed-function-font-lock-fontify-syntac.patch", Size: 2306 bytes --]

From 6b21f1ed56b0b196fba3a626f50464b91139db47 Mon Sep 17 00:00:00 2001
From: Benson Chu <bensonchu457@gmail.com>
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 | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 831e603239..eb68bbc5c6 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,12 @@ 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.
+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)
   "Put proper face on each string and comment between START and END.
 START should be at the beginning of a line."
@@ -2363,7 +2369,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")
 
 \f
 (provide 'font-lock)
-- 
2.39.0