diff options
| author | Geoff Voelker <voelker@cs.washington.edu> | 1999-03-17 22:06:23 +0000 |
|---|---|---|
| committer | Geoff Voelker <voelker@cs.washington.edu> | 1999-03-17 22:06:23 +0000 |
| commit | aa2198609857ccf249abbd4dc4ad2a778a9152bc (patch) | |
| tree | 3bd4549c7117c8d92b6ccf1d0c550e2baef578c2 /lisp/w32-fns.el | |
| parent | 51e0d7e396bacafd85d92c2d7631c499c9030f76 (diff) | |
| download | emacs-aa2198609857ccf249abbd4dc4ad2a778a9152bc.tar.gz | |
(set-w32-system-coding-system) New function.
(w32-system-coding-system) Initialize to 'iso-latin-1.
Diffstat (limited to 'lisp/w32-fns.el')
| -rw-r--r-- | lisp/w32-fns.el | 16 |
1 files changed, 16 insertions, 0 deletions
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) |