Seiji Zenitani
zenit****@users*****
2005年 11月 30日 (水) 00:23:52 JST
Index: CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el
diff -u CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el:1.5 CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el:1.6
--- CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el:1.5 Sun Nov 27 06:31:10 2005
+++ CarbonEmacsPackage/GPL/lisp/carbon-emacs-package.el Wed Nov 30 00:23:52 2005
@@ -44,8 +44,8 @@
(let ((env (getenv key)))
(if (and env (not (equal env "")))
(if (not (member value (split-string env ":")))
- (message (setenv key (concat env ":" value))))
- (message (setenv key value)) )
+ (message (concat key "=" (setenv key (concat env ":" value)))))
+ (message (concat key "=" (setenv key value))) )
))
(defun carbon-emacs-package-tmpdir ()