/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.287 by jurta, Sun Nov 20 07:45:19 2005 UTC revision 1.288 by handa, Mon Dec 5 07:38:44 2005 UTC
# Line 1126  For a list of useful values for KEY and Line 1126  For a list of useful values for KEY and
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.
# Line 1196  in the European submenu in each of those Line 1203  in the European submenu in each of those
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.
# Line 2129  of `buffer-file-coding-system' set by th Line 2138  of `buffer-file-coding-system' set by th
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

Legend:
Removed from v.1.287  
changed lines
  Added in v.1.288

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26