[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el |
Date: |
Mon, 05 Dec 2005 02:38:44 -0500 |
Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.287
emacs/lisp/international/mule-cmds.el:1.288
*** emacs/lisp/international/mule-cmds.el:1.287 Sun Nov 20 07:45:19 2005
--- emacs/lisp/international/mule-cmds.el Mon Dec 5 07:38:44 2005
***************
*** 1126,1131 ****
--- 1126,1138 ----
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,1204 ****
(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)))))
(defun read-language-name (key prompt &optional default)
"Read a language environment name which has information for KEY.
--- 1203,1213 ----
(define-key-after setup-map (vector (intern lang-env))
(cons lang-env 'setup-specified-language-environment) t)
! (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,2135 ****
;; 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
("eo" . "Latin-3") ; Esperanto
("es" "Spanish" iso-8859-1)
("et" . "Latin-1") ; Estonian
--- 2138,2144 ----
;; 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" "English" iso-8859-1) ; English
("eo" . "Latin-3") ; Esperanto
("es" "Spanish" iso-8859-1)
("et" . "Latin-1") ; Estonian
- [Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el,
Kenichi Handa <=