[elpa] externals/transient c26cbac574 08/11: transient-{init, set}-value: Use case-sensitive matching

[Jonas Bernoulli]

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