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

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index a2e45a3e47ac20931da38c831d8b938d80bfab10..b7d488aa5c3bebda5049ad2bd6a76de238861e0e 100644 (file)
--- 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)))