[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient 158d023bd0 04/19: Use pcase's quote upattern
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient 158d023bd0 04/19: Use pcase's quote upattern |
Date: |
Mon, 2 May 2022 05:08:24 -0400 (EDT) |
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
- [elpa] externals/transient updated (81b2b912de -> 84f2d12ef3), Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient 2c7b4d7f2a 03/19: Use string-suffix-p instead of string-match-p, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient f704f2a341 08/19: Use and-let* for side-effects, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient 682fe574fe 09/19: Silence older byte-compilers, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient c088aaccbb 01/19: transient--insert-group: Support multi-row cells, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient 19cf9bef5d 02/19: Revert "transient--insert-group: Support multi-row cells", Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient 158d023bd0 04/19: Use pcase's quote upattern,
Jonas Bernoulli <=
- [elpa] externals/transient 22ef906b5a 07/19: Use string-search instead of string-match-p, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient 35c4b73419 10/19: Refresh library header, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient 5ae3c4014e 05/19: Depend on compat package from GNU Elpa, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient fabd8c9b61 14/19: Put eval-when-compile and require on one line, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient d4fb853d49 15/19: transient--show: Also hide the header-line, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient 8c0d827319 12/19: make: Improve creation of autoloads file, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient cf37817bb5 06/19: Use string-replace instead of replace-regexp-in-string, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient 71de86e8ea 17/19: Fix invoking the suffix the cursor is on in the transient buffer, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient ed2febd005 16/19: Support use of an infix argument following a prefix argument, Jonas Bernoulli, 2022/05/02
- [elpa] externals/transient 2ef62fac89 13/19: transient--insert-group: Support multi-row cells, Jonas Bernoulli, 2022/05/02