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)
This commit is contained in:
Arash Esbati 2017-08-11 23:57:35 +02:00 committed by Tassilo Horn
parent e3ed43f4ac
commit 19d2b4a3e2

View file

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