(set-locale-environment): Set default-file-name-coding-system

from system defaults on Windows.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 32c1447ceabebaf7aae334cf32e516059b405384..cd82ad1f0c82ec24d3a7e0882bb2357a6b0a9476 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-14  Jason Rumney  <jasonr@gnu.org>
+
+       * international/mule-cmds.el (set-locale-environment): Set
+       default-file-name-coding-system from system defaults on Windows.
+
 2007-11-14  Nick Roberts  <nickrob@snap.net.nz>
 
        * progmodes/gdb-ui.el (gdb-parent-bptno-enabled): New variable.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index a858066f47cea9ae311c1e9fce77ed969225334e..bd2d03eb5d49c726ef24d23031632ec11547332a 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2609,12 +2609,13 @@ See also `locale-charset-language-names', `locale-language-names',
          (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))))