scope.el: Support setopt

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index 34c9261b6b406f5e835d736906478029746ac851..504eddecc48ffb200f05b78ab8a53573819f04a0 100644 (file)
--- 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)