mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(set-language-info-internal): New

Browse Source 
function.
(set-language-info): Call set-language-info-internal to update
language-info-alist.  If LANG-ENV is the current one, call
set-language-environment to make INFO effective now.
(set-language-info-alist): Likewise.
(locale-language-names): With locale "en", use English
lang. env. but set the default codings to iso-8859-1.
This commit is contained in:
Kenichi Handa 2005-12-05 07:39:01 +00:00
parent f15ced6691
commit eec5c8f9b2
2 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ChangeLog
View File

@ -1,3 +1,14 @@
2005-12-05 Kenichi Handa <handa@m17n.org>
* international/mule-cmds.el (set-language-info-internal): New
function.
(set-language-info): Call set-language-info-internal to update
language-info-alist. If LANG-ENV is the current one, call
set-language-environment to make INFO effective now.
(set-language-info-alist): Likewise.
(locale-language-names): With locale "en", use English
lang. env. but set the default codings to iso-8859-1.
2005-12-04 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-ui.el (gdb-use-inferior-io-buffer)

17
lisp/international/mule-cmds.el
View File

@ -1126,6 +1126,13 @@ For a list of useful values for KEY and their meanings,
see `language-info-alist'."
(if (symbolp lang-env)
(setq lang-env (symbol-name lang-env)))
(set-language-info-internal lang-env key info)
(if (equal lang-env current-language-environment)
(set-language-environment lang-env)))
(defun set-language-info-internal (lang-env key info)
"Internal use only.
Arguments are the same as `set-language-info'."
(let (lang-slot key-slot)
(setq lang-slot (assoc lang-env language-info-alist))
(if (null lang-slot) ; If no slot for the language, add it.
@ -1196,9 +1203,11 @@ in the European submenu in each of those two menus."
(define-key-after setup-map (vector (intern lang-env))
(cons lang-env 'setup-specified-language-environment) t)
(while alist
(set-language-info lang-env (car (car alist)) (cdr (car alist)))
(setq alist (cdr alist)))))
(dolist (elt alist)
(set-language-info-internal lang-env (car elt) (cdr elt)))
(if (equal lang-env current-language-environment)
(set-language-environment lang-env))))
(defun read-language-name (key prompt &optional default)
"Read a language environment name which has information for KEY.
@ -2129,7 +2138,7 @@ of `buffer-file-coding-system' set by this function."
;; That's actually what the GNU locales define, modulo things like
;; en_IN -- fx.
("en_IN" "English" utf-8) ; glibc uses utf-8 for English in India
("en" . "Latin-1") ; English
("en" "English" iso-8859-1) ; English
("eo" . "Latin-3") ; Esperanto
("es" "Spanish" iso-8859-1)
("et" . "Latin-1") ; Estonian