[elpa] externals/cape a397a0c92d: Guard string-match-p with case-fold-search=nil (Fix #116)

[ELPA Syncer]

branch: externals/cape
commit a397a0c92de38277b7f835fa999fac400a764908
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Guard string-match-p with case-fold-search=nil (Fix #116)
---
 cape.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cape.el b/cape.el
index caa9d58102..f0e01c15ce 100644
--- a/cape.el
+++ b/cape.el
@@ -148,7 +148,7 @@ The buffers are scanned for completion candidates by 
`cape-line'."
 (defun cape--case-replace-list (flag input strs)
   "Replace case of STRS depending on INPUT and FLAG."
   (if (and (if (eq flag 'case-replace) case-replace flag)
-           (string-match-p "\\`[[:upper:]]" input))
+           (let (case-fold-search) (string-match-p "\\`[[:upper:]]" input)))
       (mapcar (apply-partially #'cape--case-replace flag input) strs)
     strs))
 
@@ -156,7 +156,7 @@ The buffers are scanned for completion candidates by 
`cape-line'."
   "Replace case of STR depending on INPUT and FLAG."
   (or (and (if (eq flag 'case-replace) case-replace flag)
            (string-prefix-p input str t)
-           (string-match-p "\\`[[:upper:]]" input)
+           (let (case-fold-search) (string-match-p "\\`[[:upper:]]" input))
            (save-match-data
              ;; Ensure that single character uppercase input does not lead to 
an
              ;; all uppercase result.