Seiji Zenitani
zenit****@users*****
2005年 11月 13日 (日) 21:19:09 JST
Index: CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el
diff -u CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el:1.7 CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el:1.8
--- CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el:1.7 Sat Nov 12 21:21:42 2005
+++ CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el Sun Nov 13 21:19:09 2005
@@ -2,7 +2,11 @@
;; Settings will be ignored in a non-Japanese environment
;; 日本語環境でのみ以下の設定をロードします
-(when (equal (getenv "__CF_USER_TEXT_ENCODING") "0x1F5:1:14")
+
+;; The environment variable __CF_USER_TEXT_ENCODING could be
+;; "0x1F5:1:14", "0x1F6:1:14", "0x1F7:1:14" ...
+;; (from wakimoto-san, [Macemacsjp-users 736])
+(when (string-match ":1:14\\'" (getenv "__CF_USER_TEXT_ENCODING"))
(set-language-environment 'Japanese)
(set-default-coding-systems 'euc-jp-unix)
@@ -34,7 +38,7 @@
;; smKorean = 3,
;; smSimpChinese = 25, /* Simplified Chinese*/
- ) ; end -- (when (eq window-system 'mac)
- ) ; end -- (when (equal (getenv "__CF_USER_TEXT_ENCODING") "0x1F5:1:14")
+ ) ; end -- (inline input method)
+ ) ; end -- (__CF_USER_TEXT_ENCODING)
;; end
\ No newline at end of file