From e8bc4fbc1a6adbb96395a19c6aab6af9d774baa9 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 26 Jan 2025 19:48:11 +0100 Subject: [PATCH] (scope-define-global-minor-mode): Remove. --- lisp/emacs-lisp/scope.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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)) -- 2.39.5