scope.el: Recognize face arg of pulse-momentary-highlight-region

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index 176c1260f5184982afe715b48631262d1b416268..cdb374d990b8b663d0f7002b4aa98f5f7cfc959a 100644 (file)
--- a/lisp/emacs-lisp/scope.el
+++ b/lisp/emacs-lisp/scope.el
@@ -1199,6 +1199,9 @@ a (possibly empty) list of safe macros.")
   (when-let ((q (scope--unqoute type)) ((not (booleanp q))))
     (scope-report-s q 'type)))
 
+(scope-define-function-analyzer pulse-momentary-highlight-region (_start _end &optional face)
+  (when-let ((q (scope--unqoute face))) (scope-face q)))
+
 (scope-define-function-analyzer throw (tag _value)
   (when-let ((q (scope--unqoute tag))) (scope-report-s q 'throw-tag)))