Mercurial > emacs

changeset 24498:756058742361

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-w32-system-coding-system) New function. (w32-system-coding-system) Initialize to 'iso-latin-1.
author Geoff Voelker <voelker@cs.washington.edu>
date Wed, 17 Mar 1999 22:06:23 +0000
parents b09ceba3d319
children e5b719c6fd51
files lisp/w32-fns.el
diffstat 1 files changed, 16 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)