projects
/
elisp
/
flim.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3dd4a53
)
mel-u.el: Use mime-temp-directory instead of TMP.
author
yamaoka
<yamaoka>
Fri, 8 May 1998 05:48:11 +0000
(
05:48
+0000)
committer
yamaoka
<yamaoka>
Fri, 8 May 1998 05:48:11 +0000
(
05:48
+0000)
ChangeLog
patch
|
blob
|
history
mel-u.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
2951b58
..
c5c9da1
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,7
@@
+1998-05-08 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * mel-u.el: Use mime-temp-directory instead of TMP.
+
1998-05-06 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* FLIM: Version 1.2.0 (J
\e
-Dþjò) was released.
\e
-A
1998-05-06 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* FLIM: Version 1.2.0 (J
\e
-Dþjò) was released.
\e
-A
diff --git
a/mel-u.el
b/mel-u.el
index
46e9efa
..
d004d60
100644
(file)
--- a/
mel-u.el
+++ b/
mel-u.el
@@
-35,8
+35,7
@@
(defvar uuencode-external-encoder '("uuencode" "-")
"*list of uuencode encoder program name and its arguments.")
(defvar uuencode-external-encoder '("uuencode" "-")
"*list of uuencode encoder program name and its arguments.")
-(defvar uuencode-external-decoder
- (list "sh" "-c" (format "(cd %s; uudecode)" mime-temp-directory))
+(defvar uuencode-external-decoder '("sh" "-c" "uudecode")
"*list of uuencode decoder program name and its arguments.")
"*list of uuencode decoder program name and its arguments.")
@@
-76,7
+75,7
@@
variable `uuencode-external-decoder'."
(buffer-substring (match-beginning 0)
(match-end 0))
)))))
(buffer-substring (match-beginning 0)
(match-end 0))
)))))
- (default-directory (or (getenv "TMP")(getenv "TEMP") "/tmp")))
+ (default-directory mime-temp-directory))
(if filename
(as-binary-process
(apply (function call-process-region)
(if filename
(as-binary-process
(apply (function call-process-region)
@@
-126,7
+125,7
@@
START and END are buffer positions."
(buffer-substring (match-beginning 0)
(match-end 0))
)))))
(buffer-substring (match-beginning 0)
(match-end 0))
)))))
- (default-directory (or (getenv "TMP")(getenv "TEMP") "/tmp")))
+ (default-directory mime-temp-directory))
(if file
(as-binary-process
(apply (function call-process-region)
(if file
(as-binary-process
(apply (function call-process-region)