[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]


From: Yoichi NAKAYAMA
Subject: set-language-environment
Date: Sun, 06 Jul 2003 02:20:46 +0900
User-agent: Wanderlust/2.11.3 (Wonderwall) KARAMI/1.14.2 (TABASCO) FLIM/1.14.5 (出町柳) APEL/10.5 Emacs/21.2 (i386-debian-linux-gnu) MULE/5.0 (賢木)

docstring of the variable current-language-environment says:
> This variable should be set only with M-x customize, which is equivalent
> to using the function `set-language-environment'.

Although (set-language-environment "jApAnEse") does set
current-language-environment to the wrong value (so the above two
are not "equivalent").  Following patch will fix it.

Index: mule-cmds.el
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.237
diff -u -r1.237 mule-cmds.el
--- mule-cmds.el        29 Jun 2003 10:36:59 -0000      1.237
+++ mule-cmds.el        5 Jul 2003 17:10:11 -0000
@@ -1707,7 +1707,9 @@
       (if (symbolp language-name)
          (setq language-name (symbol-name language-name)))
     (setq language-name "English"))
-  (or (assoc-ignore-case language-name language-info-alist)
+  (or (setq language-name
+           (car-safe
+            (assoc-ignore-case language-name language-info-alist)))
       (error "Language environment not defined: %S" language-name))
   (if current-language-environment
       (let ((func (get-language-info current-language-environment

Yoichi Nakayama

reply via email to

[Prev in Thread] Current Thread [Next in Thread]