# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1195035753 0
# Node ID 96dc85a06a3a134d8cc957b75963f13cc75b0f0d
# Parent  7420ede9df33568708256c3cc5e2705f2df45467
(set-locale-environment): Set default-file-name-coding-system
from system defaults on Windows.

diff -r 7420ede9df33 -r 96dc85a06a3a lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed Nov 14 09:05:26 2007 +0000
+++ b/lisp/international/mule-cmds.el	Wed Nov 14 10:22:33 2007 +0000
@@ -2609,12 +2609,13 @@
 	  (setq locale-coding-system coding-system))))
 
     ;; On Windows, override locale-coding-system,
-    ;; keyboard-coding-system with system codepage.  Note:
-    ;; selection-coding-system is already set in w32select.c.
+    ;; default-file-name-coding-system, keyboard-coding-system,
+    ;; terminal-coding-system with system codepage.
     (when (boundp 'w32-ansi-code-page)
       (let ((code-page-coding (intern (format "cp%d" w32-ansi-code-page))))
 	(when (coding-system-p code-page-coding)
 	  (setq locale-coding-system code-page-coding)
+          (setq default-file-name-coding-system code-page-coding)
 	  (set-keyboard-coding-system code-page-coding)
 	  (set-terminal-coding-system code-page-coding))))