; Silence byte-compiler

* lisp/transient.el (transient-set-default-level)
(transient-scope): Silence byte-compiler.

(cherry picked from commit e33eb91061d53b31ee4c5557600f13749aa4ffd5)

diff --git a/lisp/transient.el b/lisp/transient.el
index f9859e96fe493a3abfd1fcbec52ffa62f6e208e4..23793159448e8a2e82233403ba0f974a64b140c4 100644 (file)
--- 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))))