+ (let ((process-environment (copy-sequence process-environment)))
+ ;; Disable locale.
+ (dolist (env process-environment)
+ (when (string-match "\
+\\`\\(L\\(ANG\\|C_\\(ALL\\|CTYPE\\|COLLATE\\|TIME\\|NUMERIC\\|MONETARY\\|MESSAGES\\)\\)\\)=" env)
+ (setenv (match-string 1 env) nil)))
+ (setenv "LANG" "C")