From 5daff35f6cee8f7b0a56b60877be12b6487349c2 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sat, 14 Jun 2025 20:42:52 +0200 Subject: [PATCH] scope.el: Support setopt --- lisp/emacs-lisp/scope.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el index 34c9261b6b4..504eddecc48 100644 --- a/lisp/emacs-lisp/scope.el +++ b/lisp/emacs-lisp/scope.el @@ -1760,7 +1760,7 @@ a (possibly empty) list of safe macros.") (scope-define-function-analyzer fboundp (symbol) (when-let ((q (scope--unqoute symbol))) (scope-report-s q 'function))) -(scope-define-function-analyzer overlay-put (_ov prop val) +(scope-define-function-analyzer overlay-put (&optional _ov prop val) (when-let ((q (scope--unqoute prop)) ((eq (scope-sym-bare q) 'face)) (face (scope--unqoute val))) @@ -1869,6 +1869,9 @@ a (possibly empty) list of safe macros.") (:group (scope-report-s (cadr q) 'group))) (setq q (cddr q))))) +(scope-define-function-analyzer setopt--set (&optional var _val) + (when-let ((q (scope--unqoute var))) (scope-report-s q 'variable))) + (scope-define-macro-analyzer define-globalized-minor-mode (l global mode turn-on &rest body) (scope-report-s mode 'function) (scope-report-s turn-on 'function) -- 2.39.5