procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Silence byte-compiler

Browse source 
* lisp/transient.el (transient-set-default-level)
(transient-scope): Silence byte-compiler.
This commit is contained in:
Stefan Kangas 2025-02-10 13:00:12 +01:00
parent 8b3a276e4b
commit e33eb91061
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/transient.el
View file

@ -1564,7 +1564,7 @@ level of such a binding.
The default level can only be set for commands that were defined
using `transient-define-suffix', `transient-define-infix' or
`transient-define-argument'."
(if-let ((proto (transient--suffix-prototype command)))
(if-let* ((proto (transient--suffix-prototype command)))
(oset proto level level)
(user-error "Cannot set level for `%s'; no prototype object exists"
command)))
@ -3891,13 +3891,13 @@ If no prefix matches, return nil."
(if (or prefixes classes)
(let ((prefixes (ensure-list prefixes))
(type (if (symbolp classes) classes (cons 'or classes))))
(if-let ((obj (cl-flet ((match (obj)
(and obj
(or (memq (oref obj command) prefixes)
(cl-typep obj type))
obj)))
(or (match transient-current-prefix)
(match transient--prefix)))))
(if-let* ((obj (cl-flet ((match (obj)
(and obj
(or (memq (oref obj command) prefixes)
(cl-typep obj type))
obj)))
(or (match transient-current-prefix)
(match transient--prefix)))))
(oref obj scope)
(and (get (car prefixes) 'transient--prefix)
(oref (transient--init-prefix (car prefixes)) scope))))