Function: w32-set-system-coding-system

w32-set-system-coding-system is an interactive and byte-compiled function defined in w32-fns.el.gz.

Signature

(w32-set-system-coding-system CODING-SYSTEM)

Documentation

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 M-x list-coding-systems (list-coding-systems).

This function is provided for backward compatibility, since w32-system-coding-system is now an alias for locale-coding-system.

Key Bindings

Aliases

set-w32-system-coding-system (obsolete since 26.1)

Source Code

;; Defined in /usr/src/emacs/lisp/w32-fns.el.gz
;; The variable source-directory is used to initialize Info-directory-list.
;; However, the common case is that Emacs is being used from a binary
;; distribution, and the value of source-directory is meaningless in that
;; case.  Even worse, source-directory can refer to a directory on a drive
;; on the build machine that happens to be a removable drive on the user's
;; machine.  When this happens, Emacs tries to access the removable drive
;; and produces the abort/retry/ignore dialog.  Since we do not use
;; source-directory, set it to something that is a reasonable approximation
;; on the user's machine.

;;(add-hook 'before-init-hook
;;	  (lambda ()
;;	    (setq source-directory (file-name-as-directory
;;				     (expand-file-name ".." exec-directory)))))

(defun w32-set-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].

This function is provided for backward compatibility, since
`w32-system-coding-system' is now an alias for `locale-coding-system'."
  (interactive
   (list (let ((default locale-coding-system))
           (read-coding-system
            (format-prompt "Coding system for system calls" default)
            default))))
  (check-coding-system coding-system)
  (setq locale-coding-system coding-system))