Seiji Zenitani
zenit****@users*****
2005年 11月 10日 (木) 22:25:03 JST
Index: CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el
diff -u CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el:1.1 CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el:1.2
--- CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el:1.1 Sun Oct 23 13:18:04 2005
+++ CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el Thu Nov 10 22:25:03 2005
@@ -22,15 +22,6 @@
(concat carbon-emacs-package-app-path "/Contents/Resources")
"Prefix path of Carbon Emacs Package.")
-(defconst carbon-emacs-package-portable-mode
- (string= "2" (do-applescript (concat "tell application \"Finder\" to get the label index of file (\"" carbon-emacs-package-app-path "\" as POSIX file)")))
- "Non-nil if Carbon Emacs is running in portable mode.
-If the user sets a red label to the Emacs application and launches it,
-the home directory is set to a directory that contains Emacs.app.")
-(if carbon-emacs-package-portable-mode
- (setenv "HOME"
- (expand-file-name (concat carbon-emacs-package-app-path "/../"))))
-
(defun carbon-emacs-package-add-to-path (list-var)
"Add the each element of LIST-VAR to the PATH environment variable
and to the value of `exec-path'.
@@ -177,12 +168,11 @@
["0" (carbon-emacs-package-set-alpha 0.0)
:style toggle :selected (= carbon-emacs-package-alpha 0.0) ]
)
- ["Portable Mode"
- t
- :style toggle :selected carbon-emacs-package-portable-mode :active nil]
["--" nil nil]
- ["Save Changes"
- (progn
+ ["Save Changes..."
+ (when (mac-dialog-y-or-n-p
+ "Do you save changes to the preference file?"
+ " ~/Library/Preferences/CarbonEmacsPackage.plist")
(dolist
(elt
'(
@@ -215,6 +205,10 @@
(carbon-emacs-package-netinstall
"http://macemacsjp.sourceforge.jp/package/netinstall/MHTextImporter.tgz")
carbon-emacs-package-netinstall-on]
+ ["Portable Add-on"
+ (carbon-emacs-package-netinstall
+ "http://macemacsjp.sourceforge.jp/package/netinstall/portable.tgz")
+ carbon-emacs-package-netinstall-on]
["SKK"
(carbon-emacs-package-netinstall
"http://macemacsjp.sourceforge.jp/package/netinstall/skk.tgz")