(scope-define-global-minor-mode): Remove.

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index 1d9b3ccf18af95e6e453a12209327f20db591719..35f2bc5a15df63aa477fad77c6df6fde96da0a13 100644 (file)
--- a/lisp/emacs-lisp/scope.el
+++ b/lisp/emacs-lisp/scope.el
@@ -1008,11 +1008,6 @@ Optional argument LOCAL is a local context to extend."
             (scope-cl-macrolet local (cdr bindings) body))))
     (scope-n local body)))
 
-(defun scope-define-global-minor-mode (local global mode turn-on body)
-  (scope-sharpquote local mode)
-  (scope-sharpquote local turn-on)
-  (scope-define-minor-mode local global nil body))
-
 (defun scope-define-minor-mode (local mode _doc body)
   (let ((explicit-var nil))
     (while-let ((kw (car-safe body))
@@ -1291,7 +1286,9 @@ a (possibly empty) list of safe macros.")
 (put 'custom-declare-theme 'scope-analyzer #'scope--analyze-provide-theme)
 
 (scope-define-macro-analyzer define-globalized-minor-mode (l global mode turn-on &rest body)
-  (scope-define-global-minor-mode l global mode turn-on body))
+  (scope-report-s mode 'function)
+  (scope-report-s turn-on 'function)
+  (scope-define-minor-mode l global nil body))
 
 (scope-define-macro-analyzer lambda (l args &rest body)
   (scope-lambda l args body))