Seiji Zenitani
zenit****@users*****
2006年 5月 13日 (土) 17:00:41 JST
Index: CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el
diff -u CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el:1.17 CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el:1.18
--- CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el:1.17 Wed May 10 19:09:29 2006
+++ CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el Sat May 13 17:00:41 2006
@@ -159,6 +159,11 @@
["Mac-Style Print Dialog"
(mac-print-mode)
:style toggle :selected mac-print-mode]
+ ["OSX Native Input Method"
+ (if (equal default-input-method "MacOSX")
+ (mac-exit-inline-input-method)
+ (mac-setup-inline-input-method))
+ :style toggle :selected (equal default-input-method "MacOSX")]
;; ["Portable Mode"
;; t
;; :style toggle :selected carbon-emacs-package-portable-mode :active nil]
@@ -195,11 +200,13 @@
" ~/Library/Preferences/CarbonEmacsPackage.plist")
(dolist
(elt
- '(
+ `(
("WindowAlpha" . carbon-emacs-package-alpha)
("MacKeyModeEnabled" . mac-key-mode)
("MacPrintModeEnabled" . mac-print-mode)
("FixedWidthFontset" . carbon-emacs-package-carbon-font-enabled)
+ ("MacOSInputMethodEnabled" .
+ ,(equal default-input-method "MacOSX"))
))
(let ((key (car elt))
(value (if (boundp (cdr elt)) (eval (cdr elt)) "NO")))