Commit 7e68de56 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(setenv): Treat case as significant.

parent 592ce97f
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment