From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 12 Feb 2025 08:41:39 +0000 (+0100)
Subject: scope.el: Recognize face arg of pulse-momentary-highlight-region
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9a1785fe6ef68568e1ce38768b79e4704a792e3;p=emacs.git

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 176c1260f51..cdb374d990b 100644
--- 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)))