mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki Activity

(language-info-alist): Doc-string

Browse source 
modified.
(set-language-environment): Setup nonascii-translation-table and
charset-origin-alist according to the property of the specified
language environment.
(update-iso-coding-systems): Make it an alias for
update-coding-systems-internal.
(prefer-coding-system): Call update-coding-systems-internal
instead of update-iso-coding-systems.
(set-language-environment-coding-systems): Likewise.
This commit is contained in:
Kenichi Handa 1998-08-02 01:06:57 +00:00
parent a1223d6ce9
commit 45d08cb2bc
1 changed files with 19 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/international/mule-cmds.el
View file

@ -209,6 +209,9 @@ This also sets the following values:
(setq default-keyboard-coding-system coding-system)
(setq default-process-coding-system (cons coding-system coding-system)))
(defalias 'update-iso-coding-systems 'update-coding-systems-internal)
(make-obsolete 'update-iso-coding-systems 'update-coding-systems-internal)
(defun prefer-coding-system (coding-system)
"Add CODING-SYSTEM at the front of the priority list for automatic detection.
This also sets the following coding systems:
@ -227,7 +230,7 @@ This also sets the following values:
;; CODING-SYSTEM is no-conversion or undecided.
(error "Can't prefer the coding system `%s'" coding-system))
(set coding-category (or base coding-system))
(update-iso-coding-systems)
(update-coding-systems-internal)
(if (not (eq coding-category (car coding-category-list)))
;; We must change the order.
(setq coding-category-list
@ -502,7 +505,16 @@ Meaningful values for KEY include
coding-priority value is a list of coding systems for this language
environment, in order of decreasing priority.
This is used to set up the coding system priority
list when you switch to this language environment.")
list when you switch to this language environment.
nonascii-translation-table
value is a translation table to be set to the
variable `nonascii-translation-table' in this
language environment.
charset-origin-alist
value is an alist to be set to the variable
`charset-origin-alist' in this language environment.")
(defun get-language-info (lang-env key)
"Return information listed under KEY for language environment LANG-ENV.
@ -983,6 +995,10 @@ specifies the character set for the major languages of Western Europe."
(set-terminal-coding-system (intern (downcase language-name)))
(standard-display-european-internal))
(setq current-language-environment language-name)
(setq nonascii-translation-table
(get-language-info language-name 'nonascii-translation-table))
(setq charset-origin-alist
(get-language-info language-name 'charset-origin-alist))
(funcall (get-language-info language-name 'setup-function))
(run-hooks 'set-language-environment-hook)
(force-mode-line-update t))
@ -1009,7 +1025,7 @@ specifies the character set for the major languages of Western Europe."
(while priority
(set (car categories) (car priority))
(setq priority (cdr priority) categories (cdr categories)))
(update-iso-coding-systems)))))
(update-coding-systems-internal)))))
;; Print all arguments with `princ', then print "\n".
(defsubst princ-list (&rest args)