From fcd0127af79ad22867b8e43daf677df9aa18103f Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 10 Feb 2025 13:00:12 +0100 Subject: [PATCH] ; Silence byte-compiler * lisp/transient.el (transient-set-default-level) (transient-scope): Silence byte-compiler. (cherry picked from commit e33eb91061d53b31ee4c5557600f13749aa4ffd5) --- lisp/transient.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/transient.el b/lisp/transient.el index f9859e96fe4..23793159448 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -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))) @@ -3890,13 +3890,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)))) -- 2.39.5