Function: set-language-environment-nonascii-translation
set-language-environment-nonascii-translation is a byte-compiled
function defined in mule-cmds.el.gz.
Signature
(set-language-environment-nonascii-translation LANGUAGE-NAME)
Documentation
Do unibyte/multibyte translation setup for language environment LANGUAGE-NAME.
Source Code
;; Defined in /usr/src/emacs/lisp/international/mule-cmds.el.gz
(defun set-language-environment-nonascii-translation (language-name)
"Do unibyte/multibyte translation setup for language environment LANGUAGE-NAME."
;; Note: For DOS, we assumed that the charset cpXXX is already
;; defined.
(let ((nonascii (get-language-info language-name 'nonascii-translation)))
(if (eq window-system 'pc)
(setq nonascii (intern (format "cp%d" dos-codepage))))
(or (and (charsetp nonascii)
(get-charset-property nonascii :ascii-compatible-p))
(setq nonascii 'iso-8859-1))
;; Back in Emacs-20, it was necessary to provide some fallback implicit
;; conversion, because almost no packages handled coding-system issues.
;; Nowadays it'd just paper over bugs.
;; (set-unibyte-charset nonascii)
))