1126 |
see `language-info-alist'." |
see `language-info-alist'." |
1127 |
(if (symbolp lang-env) |
(if (symbolp lang-env) |
1128 |
(setq lang-env (symbol-name lang-env))) |
(setq lang-env (symbol-name lang-env))) |
1129 |
|
(set-language-info-internal lang-env key info) |
1130 |
|
(if (equal lang-env current-language-environment) |
1131 |
|
(set-language-environment lang-env))) |
1132 |
|
|
1133 |
|
(defun set-language-info-internal (lang-env key info) |
1134 |
|
"Internal use only. |
1135 |
|
Arguments are the same as `set-language-info'." |
1136 |
(let (lang-slot key-slot) |
(let (lang-slot key-slot) |
1137 |
(setq lang-slot (assoc lang-env language-info-alist)) |
(setq lang-slot (assoc lang-env language-info-alist)) |
1138 |
(if (null lang-slot) ; If no slot for the language, add it. |
(if (null lang-slot) ; If no slot for the language, add it. |
1203 |
(define-key-after setup-map (vector (intern lang-env)) |
(define-key-after setup-map (vector (intern lang-env)) |
1204 |
(cons lang-env 'setup-specified-language-environment) t) |
(cons lang-env 'setup-specified-language-environment) t) |
1205 |
|
|
1206 |
(while alist |
(dolist (elt alist) |
1207 |
(set-language-info lang-env (car (car alist)) (cdr (car alist))) |
(set-language-info-internal lang-env (car elt) (cdr elt))) |
1208 |
(setq alist (cdr alist))))) |
|
1209 |
|
(if (equal lang-env current-language-environment) |
1210 |
|
(set-language-environment lang-env)))) |
1211 |
|
|
1212 |
(defun read-language-name (key prompt &optional default) |
(defun read-language-name (key prompt &optional default) |
1213 |
"Read a language environment name which has information for KEY. |
"Read a language environment name which has information for KEY. |
2138 |
;; That's actually what the GNU locales define, modulo things like |
;; That's actually what the GNU locales define, modulo things like |
2139 |
;; en_IN -- fx. |
;; en_IN -- fx. |
2140 |
("en_IN" "English" utf-8) ; glibc uses utf-8 for English in India |
("en_IN" "English" utf-8) ; glibc uses utf-8 for English in India |
2141 |
("en" . "Latin-1") ; English |
("en" "English" iso-8859-1) ; English |
2142 |
("eo" . "Latin-3") ; Esperanto |
("eo" . "Latin-3") ; Esperanto |
2143 |
("es" "Spanish" iso-8859-1) |
("es" "Spanish" iso-8859-1) |
2144 |
("et" . "Latin-1") ; Estonian |
("et" . "Latin-1") ; Estonian |