Seiji Zenitani
zenit****@users*****
2005年 11月 12日 (土) 21:21:42 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.6 CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el:1.7 --- CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el:1.6 Sun Nov 6 21:39:21 2005 +++ CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el Sat Nov 12 21:21:42 2005 @@ -1,37 +1,40 @@ -;; japanese settings for Carbon Emacs Package +;; japanese settings for Carbon Emacs Package -*- coding: iso-2022-7bit -*- -(set-language-environment 'Japanese) -(set-default-coding-systems 'euc-jp-unix) -(set-keyboard-coding-system - (if (eq window-system 'mac) 'sjis-mac 'utf-8)) ; by seto-san -(set-clipboard-coding-system 'sjis-mac) -(set-terminal-coding-system 'utf-8) -;;(set-file-name-coding-system 'utf-8) ; already set +;; Settings will be ignored in a non-Japanese environment +;; 日本語環境でのみ以下の設定をロードします +(when (equal (getenv "__CF_USER_TEXT_ENCODING") "0x1F5:1:14") -(when (eq window-system 'mac) + (set-language-environment 'Japanese) + (set-default-coding-systems 'euc-jp-unix) + (set-keyboard-coding-system + (if (eq window-system 'mac) 'sjis-mac 'utf-8)) ; by seto-san + (set-clipboard-coding-system 'sjis-mac) + (set-terminal-coding-system 'utf-8) +;; (set-file-name-coding-system 'utf-8m) ; already set + + ;; inline input method + (when (eq window-system 'mac) ;; (setq default-input-method "MacOSX-IM-JP") - (add-hook 'isearch-mode-hook 'mac-im-isearch-mode-setup) - (add-hook 'isearch-mode-end-hook 'mac-im-isearch-mode-cleanup) - (add-hook 'minibuffer-setup-hook - (lambda () (mac-im-set-key-script -17))) - ;; fix an IM problem (modified by saiki on 2005/10/24) - (add-hook 'mac-im-offset-to-pos-hook - (lambda () - (if (and (= 1 (mac-im-get-key-script)) ; 1 == Japanese - (not (coding-system-equal - 'sjis-mac (keyboard-coding-system)))) - (set-keyboard-coding-system 'sjis-mac))) - t) -;; (add-hook 'mac-im-update-active-input-text-hook -;; (lambda (str fix &rest text-properties) -;; (if (not (coding-system-equal -;; 'sjis-mac (keyboard-coding-system))) -;; (set-keyboard-coding-system 'sjis-mac))) -;; t) - ;; add-hoc fix (turn off auto-save) - (setq auto-save-default nil) - (setq mew-draft-mode-auto-save -1) + (add-hook 'isearch-mode-hook 'mac-im-isearch-mode-setup) + (add-hook 'isearch-mode-end-hook 'mac-im-isearch-mode-cleanup) + (add-hook 'minibuffer-setup-hook + (lambda () (mac-im-set-key-script -17))) + ;; fix an IM problem (modified by saiki on 2005/10/24) + (add-hook 'mac-im-offset-to-pos-hook + (lambda () + (if (and (= 1 (mac-im-get-key-script)) ; 1 == Japanese + (not (coding-system-equal + 'sjis-mac (keyboard-coding-system)))) + (set-keyboard-coding-system 'sjis-mac))) + t) + ;; IM codes for Chinese/Korean scripts ([Macemacsjp-users 684]) + ;; smRoman = 0, + ;; smJapanese = 1, + ;; smTradChinese = 2, /* Traditional Chinese*/ + ;; smKorean = 3, + ;; smSimpChinese = 25, /* Simplified Chinese*/ - ) + ) ; end -- (when (eq window-system 'mac) + ) ; end -- (when (equal (getenv "__CF_USER_TEXT_ENCODING") "0x1F5:1:14") ;; end \ No newline at end of file