# HG changeset patch
# User Geoff Voelker <voelker@cs.washington.edu>
# Date 921708383 0
# Node ID 7560587423610da9abb6a6379f2bb60211e557dc
# Parent  b09ceba3d3192e56917f9aa026d214c3d608ba66
(set-w32-system-coding-system) New function.
(w32-system-coding-system) Initialize to 'iso-latin-1.

diff -r b09ceba3d319 -r 756058742361 lisp/w32-fns.el
--- a/lisp/w32-fns.el	Wed Mar 17 22:03:55 1999 +0000
+++ b/lisp/w32-fns.el	Wed Mar 17 22:06:23 1999 +0000
@@ -248,6 +248,22 @@
   (or type (setq type 'PRIMARY))
   (get 'x-selections type))
 
+(defun set-w32-system-coding-system (coding-system)
+  "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]."
+  (interactive
+   (list (let ((default w32-system-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)
+
 ;;; Set to a system sound if you want a fancy bell.
 (set-message-beep nil)