[Emacs-diffs] master 19d2b4a: Make a case-sensitive match for strings

[Tassilo Horn]

branch: master
commit 19d2b4a3e2eb900158f0e78864d971b44cc8ea89
Author: Arash Esbati <address@hidden>
Commit: Tassilo Horn <address@hidden>

    Make a case-sensitive match for strings
    
    * lisp/textmodes/reftex.el (reftex-typekey-check): Temporarily
    let-bind `case-fold-search' to nil in order to be case-sensitive
    when matching a string.  (Bug#27518)
---
 lisp/textmodes/reftex.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 9754d2b..d46bd0d 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -1496,7 +1496,8 @@ When DIE is non-nil, throw an error if file not found."
   (and n (setq conf-variable (nth n conf-variable)))
   (or (eq conf-variable t)
       (and (stringp conf-variable)
-           (string-match (concat "[" conf-variable "]") typekey))))
+           (let ((case-fold-search nil))
+             (string-match (concat "[" conf-variable "]") typekey)))))
 
 (defun reftex-check-recursive-edit ()
   ;; Check if we are already in a recursive edit.  Abort with helpful