emacs-devel
[Top][All Lists]
Advanced

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

Re: set-language-environment


From: Kenichi Handa
Subject: Re: set-language-environment
Date: Fri, 11 Jul 2003 11:45:06 +0900 (JST)
User-agent: SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.2 Emacs/21.2.92 (sparc-sun-solaris2.6) MULE/5.0 (SAKAKI)

In article <address@hidden>, Yoichi NAKAYAMA <address@hidden> writes:
> 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.

You are right, but with your patch, the error message
is always as this:
        Language environment not defined: nil
So, I've just installed the attached change instead.

---
Ken'ichi HANDA
address@hidden

Index: mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.240
retrieving revision 1.241
diff -u -c -r1.240 -r1.241
cvs server: conflicting specifications of output style
*** mule-cmds.el        9 Jul 2003 16:18:21 -0000       1.240
--- mule-cmds.el        11 Jul 2003 02:40:01 -0000      1.241
***************
*** 1708,1715 ****
        (if (symbolp language-name)
          (setq language-name (symbol-name language-name)))
      (setq language-name "English"))
!   (or (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
                                     'exit-function)))
--- 1708,1717 ----
        (if (symbolp language-name)
          (setq language-name (symbol-name language-name)))
      (setq language-name "English"))
!   (let ((slot (assoc-ignore-case language-name language-info-alist)))
!     (unless slot
        (error "Language environment not defined: %S" language-name))
+     (setq language-name (car slot)))
    (if current-language-environment
        (let ((func (get-language-info current-language-environment
                                     'exit-function)))




reply via email to

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