[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/09/01 07:15:04

Index: mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.338
retrieving revision 1.339
diff -u -b -r1.338 -r1.339
--- mule-cmds.el        4 Aug 2008 13:35:02 -0000       1.338
+++ mule-cmds.el        1 Sep 2008 07:15:03 -0000       1.339
@@ -1842,7 +1842,8 @@
        (funcall func)))
 
   (setq current-iso639-language
-       (get-language-info language-name 'iso639-language))
+       (or (get-language-info language-name 'iso639-language)
+           current-iso639-language))
 
   (run-hooks 'set-language-environment-hook)
   (force-mode-line-update t))
@@ -2510,7 +2511,10 @@
       ;; want to set them to the same value as LC_CTYPE.
       (when locale-name
        (setq system-messages-locale locale)
-       (setq system-time-locale locale)))
+       (setq system-time-locale locale))
+
+      (if (string-match "^[a-z][a-z]" locale)
+         (setq current-iso639-language (intern (match-string 0 locale)))))
 
     (setq woman-locale
           (or system-messages-locale