# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739834407 0
# Node ID f4a7ac2ec6516a3c096a0ef8c2a9738eebf576f1
# Parent  c7ff787b096f149778e8a1a8e358ac0dd5950e03
(setenv): Treat case as significant.

diff -r c7ff787b096f -r f4a7ac2ec651 lisp/env.el
--- a/lisp/env.el	Fri Jun 11 21:06:14 1993 +0000
+++ b/lisp/env.el	Fri Jun 11 21:33:27 1993 +0000
@@ -40,6 +40,7 @@
   (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