Seiji Zenitani
zenit****@users*****
2005年 11月 6日 (日) 21:39:22 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.5 CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el:1.6
--- CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el:1.5 Mon Oct 31 23:13:51 2005
+++ CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el Sun Nov 6 21:39:21 2005
@@ -10,18 +10,24 @@
(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
- (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)))
+ ;; 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)