[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/transient c26cbac574 08/11: transient-{init, set}-value
From: |
Jonas Bernoulli |
Subject: |
[elpa] externals/transient c26cbac574 08/11: transient-{init, set}-value: Use case-sensitive matching |
Date: |
Sun, 26 Dec 2021 02:49:49 -0500 (EST) |
branch: externals/transient
commit c26cbac57429d958ee939765da25553b26b7410f
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
transient-{init,set}-value: Use case-sensitive matching
Closes #181.
---
lisp/transient.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 5a41ac55e4..bfe0da356d 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2473,6 +2473,7 @@ Otherwise call the primary method according to object's
class."
(argument (and (slot-boundp obj 'argument)
(oref obj argument)))
(multi-value (oref obj multi-value))
+ (case-fold-search nil)
(regexp (if (slot-exists-p obj 'argument-regexp)
(oref obj argument-regexp)
(format "\\`%s\\(.*\\)" (oref obj argument)))))
@@ -2822,7 +2823,8 @@ a string, using the empty string for the empty value, or
nil if
the option does not appear in ARGS."
(if (string-match-p "=\\'" arg)
(save-match-data
- (when-let ((match (let ((re (format "\\`%s\\(?:=\\(.+\\)\\)?\\'"
+ (when-let ((match (let ((case-fold-search nil)
+ (re (format "\\`%s\\(?:=\\(.+\\)\\)?\\'"
(substring arg 0 -1))))
(cl-find-if (lambda (a)
(and (stringp a)
- [elpa] externals/transient updated (349116159f -> 51c50d8c82), Jonas Bernoulli, 2021/12/26
- [elpa] externals/transient 459e28e28a 03/11: Add lisp-imenu-generic-expression entry, Jonas Bernoulli, 2021/12/26
- [elpa] externals/transient e57d1e176b 05/11: make: Cosmetics, Jonas Bernoulli, 2021/12/26
- [elpa] externals/transient 129c2b1685 07/11: make: Set more variables in default.mk, Jonas Bernoulli, 2021/12/26
- [elpa] externals/transient 0695b617cc 02/11: manual: No longer use dissolvable sections, Jonas Bernoulli, 2021/12/26
- [elpa] externals/transient abbe17560c 10/11: manual: Move common settings to .orgconfig, Jonas Bernoulli, 2021/12/26
- [elpa] externals/transient daa22e7632 09/11: manual: Downcase keywords, Jonas Bernoulli, 2021/12/26
- [elpa] externals/transient f4790969fe 04/11: make: Add stats target, Jonas Bernoulli, 2021/12/26
- [elpa] externals/transient 61af234d41 06/11: make: Update stats target, Jonas Bernoulli, 2021/12/26
- [elpa] externals/transient c26cbac574 08/11: transient-{init, set}-value: Use case-sensitive matching,
Jonas Bernoulli <=
- [elpa] externals/transient 51c50d8c82 11/11: manual: Use updated support for definition commands, Jonas Bernoulli, 2021/12/26
- [elpa] externals/transient 4e8aa09b3f 01/11: transient-define-infix: Fix documentation, Jonas Bernoulli, 2021/12/26