transient--init-group: Cosmetics

magit · Apr 4, 2024 · d2c88d2 · d2c88d2
1 parent c03cad9
commit d2c88d2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lisp/transient.el b/lisp/transient.el
@@ -2067,9 +2067,9 @@ value.  Otherwise return CHILDREN as is."
 
 (defun transient--init-group (levels spec)
   (pcase-let ((`(,level ,class ,args ,children) (append spec nil)))
-    (and-let* ((- (transient--use-level-p level))
+    (and-let* (((transient--use-level-p level))
                (obj (apply class :level level args))
-               (- (transient--use-suffix-p obj))
+               ((transient--use-suffix-p obj))
                (suffixes (cl-mapcan (lambda (c) (transient--init-child levels c))
                                     (transient-setup-children obj children))))
       (progn ; work around debbugs#31840