summaryrefslogtreecommitdiff
path: root/lisp/env.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1993-06-11 21:33:27 +0000
committerRichard M. Stallman <rms@gnu.org>1993-06-11 21:33:27 +0000
commit7e68de5600ed124058e376aa66c4d6690b2cdcc9 (patch)
tree5824adc4870c5533689e68e78013e1c2da85fd5b /lisp/env.el
parent592ce97fa8f668e72b850350b27c1b1ea22e2bc7 (diff)
downloademacs-7e68de5600ed124058e376aa66c4d6690b2cdcc9.tar.gz
(setenv): Treat case as significant.
Diffstat (limited to 'lisp/env.el')
-rw-r--r--lisp/env.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/env.el b/lisp/env.el
index 256a3338e60..cc68de9cf00 100644
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -40,6 +40,7 @@ This function works by modifying `process-environment'."
(if (string-match "=" variable)
(error "Environment variable name `%s' contains `='" variable)
(let ((pattern (concat "\\`" (regexp-quote (concat variable "="))))
+ (case-fold-search nil)
(scan process-environment))
(while scan
(cond