Seiji Zenitani
zenit****@users*****
2006年 8月 11日 (金) 23:10:22 JST
Index: CarbonEmacsPackage/GPL/EmacsCVS-src-20060804.tbz
Index: CarbonEmacsPackage/GPL/EmacsCVS-src-20060811.tbz
Index: CarbonEmacsPackage/GPL/site-start.el
diff -u CarbonEmacsPackage/GPL/site-start.el:1.17 CarbonEmacsPackage/GPL/site-start.el:1.18
--- CarbonEmacsPackage/GPL/site-start.el:1.17 Sat Jul 15 21:16:16 2006
+++ CarbonEmacsPackage/GPL/site-start.el Fri Aug 11 23:10:21 2006
@@ -22,12 +22,13 @@
(when (eq window-system 'mac)
;; transparency
- (setq carbon-emacs-package-alpha
- (string-to-number
- (or (mac-get-preference "WindowAlpha" "CarbonEmacsPackage") "1.0")))
- (set-active-alpha carbon-emacs-package-alpha)
- (set-inactive-alpha carbon-emacs-package-alpha)
-
+ (set-active-alpha
+ (string-to-number
+ (or (mac-get-preference "ActiveAlpha" "CarbonEmacsPackage") "1.0")))
+ (set-inactive-alpha
+ (string-to-number
+ (or (mac-get-preference "InactiveAlpha" "CarbonEmacsPackage") "1.0")))
+
;; mac-style key bindings
(if (equal "YES"
(mac-get-preference "MacKeyModeEnabled" "CarbonEmacsPackage"))