diff options
| author | Arash Esbati <arash@gnu.org> | 2017-08-11 23:57:35 +0200 |
|---|---|---|
| committer | Tassilo Horn <tsdh@gnu.org> | 2017-08-12 08:11:11 +0200 |
| commit | 19d2b4a3e2eb900158f0e78864d971b44cc8ea89 (patch) | |
| tree | c03d07ee78ec186ca623158d36fde0a19e242c2a /lisp/textmodes/reftex.el | |
| parent | e3ed43f4ac667d39fffcc48cfbe97b074f9aa5c7 (diff) | |
| download | emacs-19d2b4a3e2eb900158f0e78864d971b44cc8ea89.tar.gz | |
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)
Diffstat (limited to 'lisp/textmodes/reftex.el')
| -rw-r--r-- | lisp/textmodes/reftex.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 |