From 59eb649b99f5c8c53ae79983444b54f0e01216d7 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 11 Jun 1993 21:33:27 +0000
Subject: (setenv): Treat case as significant.

---
 lisp/env.el | 1 +
 1 file changed, 1 insertion(+)

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
-- 
cgit v1.2.1