From: Geoff Voelker <voelker@cs.washington.edu>
Date: Wed, 17 Mar 1999 22:06:23 +0000 (+0000)
Subject: (set-w32-system-coding-system) New function.
X-Git-Tag: emacs-20.4~451
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b42a753f9a94f240cf209a630ba5395ca6a56db;p=emacs.git

(set-w32-system-coding-system) New function.
(w32-system-coding-system) Initialize to 'iso-latin-1.
---

diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index d573e6e88c0..33db6c011d5 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -248,6 +248,22 @@ with a definition that really does change some file names."
   (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)