branch: externals/transient
commit 158d023bd0e604f957109e0cfedf4e47cfda2f85
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@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
