From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 11 Apr 2025 19:36:36 +0000 (+0200)
Subject: scope.el: Handle 'add-face-text-property'.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d74ff6d323b82172c0228e0321062d7c1044e977;p=emacs.git

scope.el: Handle 'add-face-text-property'.
---

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index a2e45a3e47a..b7d488aa5c3 100644
--- a/lisp/emacs-lisp/scope.el
+++ b/lisp/emacs-lisp/scope.el
@@ -1571,6 +1571,9 @@ a (possibly empty) list of safe macros.")
              (face (scope--unqoute val)))
     (scope-face face)))
 
+(scope-define-function-analyzer add-face-text-property (&optional _start _end face &rest _)
+  (when-let ((q (scope--unqoute face))) (scope-face q)))
+
 (scope-define-function-analyzer boundp (var &rest _)
   (when-let ((q (scope--unqoute var))) (scope-report-s q 'variable)))