From b5b53308329675156d0f3e4eb8e6013e52087246 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Mon, 10 Feb 2025 19:58:02 +0100 Subject: [PATCH] scope.el: Recognize 'mouse-face' text property --- lisp/emacs-lisp/scope.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el index ee3e8df28df..5b73f5e4cea 100644 --- a/lisp/emacs-lisp/scope.el +++ b/lisp/emacs-lisp/scope.el @@ -1245,7 +1245,7 @@ a (possibly empty) list of safe macros.") (put 'require 'scope-analyzer #'scope--analyze-featurep) (scope-define-function-analyzer put-text-property (&optional _ _ prop val) - (when (eq 'face (scope-sym-bare (scope--unqoute prop))) + (when (memq (scope-sym-bare (scope--unqoute prop)) '(mouse-face face)) (when-let ((q (scope--unqoute val))) (scope-face q)))) (put 'remove-overlays 'scope-analyzer #'scope--analyze-put-text-property) -- 2.39.5