[Message Prev][Message Next][Thread Prev][Thread Next][Message Index][Thread Index]
Re: default-input-method
- X-ml-count: 7330
- Subject: Re: default-input-method
- From: MIYOSHI Masanori <miyoshi@xxxxxxxxxxx>
- Date: Sun, 09 Sep 2007 09:59:14 +0900
- User-agent: Wanderlust/2.15.5 (Almost Unreal) SEMI/1.14.6 (Maruoka) LIMIT/1.14.10 (Furuichi) APEL/10.6 Emacs/22.1 (i386-msvc-nt6.0.6000) MULE/5.0 (SAKAKI) Meadow/3.00-dev (KIKU)
>>>>> [meadow-users-jp : No.7329] にて
>>>>> 木村さんは書きました:
> Emacs 22.1のmule-cmds.elをみると、set-language-info-internalには↑の
> 「set-language-infoの第1引数の値がcurrent-language-environmentと等しい
> 場合には、set-language-environment を実行する」部分はないので、これは
> Meadowで独自に追加した部分だと思いますが、Meadowでこれを行っているのは
> 何か理由があるのでしょうか。
下記の修正ですね。
変更理由を覚えていますか? > 堀口さん
-----------------------------------------------------------------------
2005-11-14 Kyotaro HORIGUCHI <horiguti@xxxxxxxxxxx>
* mule-cmds.el (set-language-info): Call set-language-environment
if lang-env is quual to current-language-environment.
Index: mule-cmds.el
===================================================================
--- mule-cmds.el (revision 3964)
+++ mule-cmds.el (revision 3965)
@@ -1142,7 +1142,10 @@
(cons 'choice (mapcar
(lambda (lang)
(list 'const lang))
- (sort (mapcar 'car language-info-alist) 'string<))))))
+ (sort (mapcar 'car language-info-alist) 'string<))))
+ (if (and (featurep 'meadow)
+ (equal lang-env current-language-environment))
+ (set-language-environment lang-env))))
(defun set-language-info-alist (lang-env alist &optional parents)
"Store ALIST as the definition of language environment LANG-ENV.
--
三好 雅則 http://miyoshi.meadowy.org/