From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 26 Jan 2025 18:48:11 +0000 (+0100)
Subject: (scope-define-global-minor-mode): Remove.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8bc4fbc1a6adbb96395a19c6aab6af9d774baa9;p=emacs.git

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

diff --git a/lisp/emacs-lisp/scope.el b/lisp/emacs-lisp/scope.el
index 1d9b3ccf18a..35f2bc5a15d 100644
--- 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))