# HG changeset patch
# User Jason Rumney <jasonr@gnu.org>
# Date 1006294460 0
# Node ID 65bad70edb1796b0d03cefdeb5e6473e4c3f394a
# Parent  fe2a51b64eb68e227cb4291d4de76f287c9ffab1
(w32-system-coding-system): Change to an alias for
locale-coding-system.
(set-w32-system-coding-system): Document the above change.
Set locale-coding-system instead.

diff -r fe2a51b64eb6 -r 65bad70edb17 lisp/w32-fns.el
--- a/lisp/w32-fns.el	Tue Nov 20 22:09:14 2001 +0000
+++ b/lisp/w32-fns.el	Tue Nov 20 22:14:20 2001 +0000
@@ -291,17 +291,22 @@
   "Set the coding system used by the Windows System to CODING-SYSTEM.
 This is used for things like passing font names with non-ASCII
 characters in them to the system. For a list of possible values of
-CODING-SYSTEM, use \\[list-coding-systems]."
+CODING-SYSTEM, use \\[list-coding-systems].
+
+This function is provided for backward compatibility, since
+w32-system-coding-system is now an alias for `locale-coding-system'."
   (interactive
-   (list (let ((default w32-system-coding-system))
+   (list (let ((default locale-coding-system))
            (read-coding-system
             (format "Coding system for system calls (default, %s): "
                     default)
             default))))
   (check-coding-system coding-system)
-  (setq w32-system-coding-system coding-system))
-;; Set system coding system initially to iso-latin-1
-(set-w32-system-coding-system 'iso-latin-1)
+  (setq locale-coding-system coding-system))
+
+;; locale-coding-system was introduced to do the same thing as
+;; w32-system-coding-system. Use that instead.
+(defvaralias 'w32-system-coding-system 'locale-coding-system)
 
 ;;; Set to a system sound if you want a fancy bell.
 (set-message-beep nil)