From d9a1785fe6ef68568e1ce38768b79e4704a792e3 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Wed, 12 Feb 2025 09:41:39 +0100 Subject: [PATCH] scope.el: Recognize face arg of pulse-momentary-highlight-region --- lisp/emacs-lisp/scope.el | 3 +++ 1 file changed, 3 insertions(+) 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))) -- 2.39.5