[elpa] externals/transient 158d023bd0 04/19: Use pcase's quote upattern

[Jonas Bernoulli]

branch: externals/transient
commit 158d023bd0e604f957109e0cfedf4e47cfda2f85
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Use pcase's quote upattern
---
 lisp/transient.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 2e426766cd..dab09486d7 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1719,12 +1719,12 @@ of the corresponding object.")
           (define-key map (vector sym)
             (let ((do (oref obj transient)))
               (pcase (list do sub-prefix)
-                (`(t     t) #'transient--do-recurse)
-                (`(t   nil) (if (cl-typep obj 'transient-infix)
+                ('(t     t) #'transient--do-recurse)
+                ('(t   nil) (if (cl-typep obj 'transient-infix)
                                 #'transient--do-stay
                               #'transient--do-call))
-                (`(nil   t) #'transient--do-replace)
-                (`(nil nil) #'transient--do-exit)
+                ('(nil   t) #'transient--do-replace)
+                ('(nil nil) #'transient--do-exit)
                 (_          do)))))
          ((not (lookup-key transient-predicate-map (vector sym)))
           (define-key map (vector sym)
@@ -2045,8 +2045,8 @@ value.  Otherwise return CHILDREN as is."
       (and (not suffix-only)
            (let ((pred (oref transient--prefix transient-non-suffix)))
              (pcase pred
-               (`t   #'transient--do-stay)
-               (`nil #'transient--do-warn)
+               ('t   #'transient--do-stay)
+               ('nil #'transient--do-warn)
                (_    pred))))))
 
 (defun transient--pre-exit ()
@@ -3882,11 +3882,11 @@ search instead."
                      'transient-blue))))
     (pcase (list suffix nonsuf)
       (`(transient-purple ,_)           'transient-purple)
-      (`(transient-red  disallow)       'transient-amaranth)
-      (`(transient-blue disallow)       'transient-teal)
-      (`(transient-red  transient-red)  'transient-pink)
-      (`(transient-red  transient-blue) 'transient-red)
-      (`(transient-blue transient-blue) 'transient-blue))))
+      ('(transient-red  disallow)       'transient-amaranth)
+      ('(transient-blue disallow)       'transient-teal)
+      ('(transient-red  transient-red)  'transient-pink)
+      ('(transient-red  transient-blue) 'transient-red)
+      ('(transient-blue transient-blue) 'transient-blue))))
 
 ;;;; Edebug