andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; elisp-scope.el: Improve customization group name handling.

Browse source 
* lisp/emacs-lisp/elisp-scope.el (elisp-scope-quoted-group):
Delete it.
(define-minor-mode, define-derived-mode): Simplify analyzers.
This commit is contained in:
Eshel Yaron 2025-10-12 17:09:36 +02:00
parent 8186705752
commit 07505fd6c5
No known key found for this signature in database
GPG key ID: EF3EE9CA35D78618
1 changed files with 2 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/elisp-scope.el
View file

@ -1239,13 +1239,6 @@ Optional argument LOCAL is a local context to extend."
(elisp-scope-report 'deftype beg (length (symbol-name bare))))
(elisp-scope-lambda args body))
(defun elisp-scope-quoted-group (sym-form)
(when-let* (((eq (elisp-scope-sym-bare (car-safe sym-form)) 'quote))
(sym (cadr sym-form))
(beg (elisp-scope-sym-pos sym))
(bare (elisp-scope-sym-bare sym)))
(elisp-scope-report 'group beg (length (symbol-name bare)))))
(defun elisp-scope-defmethod-1 (local args body)
(if args
(let ((arg (car args)) (bare nil))
@ -1566,8 +1559,7 @@ Optional argument LOCAL is a local context to extend."
(elisp-scope-sharpquote tail))
(elisp-scope-1 place)))
(setq explicit-var t))
((:group)
(elisp-scope-quoted-group (cadr body)))
((:group) (elisp-scope-1 (cadr body) '(symbol . group)))
((:predicate) ;For globalized minor modes.
(elisp-scope-global-minor-mode-predicate (cadr body)))
((:on :off)
@ -2273,7 +2265,7 @@ property, or if the current buffer is trusted (see `trusted-content-p')."
((keywordp bkw)))
(elisp-scope-report-s kw 'constant)
(cl-case bkw
(:group (elisp-scope-quoted-group (cadr body)))
(:group (elisp-scope-1 (cadr body) '(symbol . group)))
((:syntax-table :abbrev-table :after-hook) (elisp-scope-1 (cadr body))))
(setq body (cddr body)))
(elisp-scope-n body))