Eiji Honjoh
saiki****@users*****
2005年 10月 24日 (月) 00:36:07 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.1 CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el:1.2
--- CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el:1.1 Sun Oct 23 13:18:05 2005
+++ CarbonEmacsPackage/GPL/site-start.d/carbon-emacs-japanese-init.el Mon Oct 24 00:36:07 2005
@@ -15,11 +15,12 @@
(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-hoc fix (turn off auto-save)