>From 36257852a2792e6051f977ab8c5f3e3d6fbc7df8 Mon Sep 17 00:00:00 2001 From: Arash Esbati Date: Fri, 11 Aug 2017 23:57:35 +0200 Subject: [PATCH] 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 9754d2b20f..d46bd0dacd 100644 --- a/lisp/textmodes/reftex.el +++ b/lisp/textmodes/reftex.el @@ -1496,7 +1496,8 @@ reftex-typekey-check (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 -- 2.13.3