From: Arash Esbati <arash@gnu.org>
Date: Fri, 11 Aug 2017 21:57:35 +0000 (+0200)
Subject: Make a case-sensitive match for strings
X-Git-Tag: emacs-26.0.90~489
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19d2b4a3e2eb900158f0e78864d971b44cc8ea89;p=emacs.git

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)
---

diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 9754d2b20ff..d46bd0dacdd 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