diff options
| author | Richard M. Stallman | 1993-06-11 21:33:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-11 21:33:27 +0000 |
| commit | 7e68de5600ed124058e376aa66c4d6690b2cdcc9 (patch) | |
| tree | 5824adc4870c5533689e68e78013e1c2da85fd5b | |
| parent | 592ce97fa8f668e72b850350b27c1b1ea22e2bc7 (diff) | |
| download | emacs-7e68de5600ed124058e376aa66c4d6690b2cdcc9.tar.gz emacs-7e68de5600ed124058e376aa66c4d6690b2cdcc9.zip | |
(setenv): Treat case as significant.
| -rw-r--r-- | lisp/env.el | 1 |
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'." | |||
| 40 | (if (string-match "=" variable) | 40 | (if (string-match "=" variable) |
| 41 | (error "Environment variable name `%s' contains `='" variable) | 41 | (error "Environment variable name `%s' contains `='" variable) |
| 42 | (let ((pattern (concat "\\`" (regexp-quote (concat variable "=")))) | 42 | (let ((pattern (concat "\\`" (regexp-quote (concat variable "=")))) |
| 43 | (case-fold-search nil) | ||
| 43 | (scan process-environment)) | 44 | (scan process-environment)) |
| 44 | (while scan | 45 | (while scan |
| 45 | (cond | 46 | (cond |