changeset 101892:b737631c78a2

(artist-system): Allow make-temp-file to use temporary-file-directory.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 07 Feb 2009 21:39:46 +0000
parents e2956fc8fb2a
children f0b9a6d7b5e4
files lisp/textmodes/artist.el
diffstat 1 files changed, 2 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/artist.el	Sat Feb 07 21:39:36 2009 +0000
+++ b/lisp/textmodes/artist.el	Sat Feb 07 21:39:46 2009 +0000
@@ -1813,17 +1813,11 @@
 Return a list (RETURN-CODE STDOUT STDERR)."
   (save-excursion
     (let* ((tmp-stdin-file-name (if stdin
-				    (make-temp-file
-				     (concat (file-name-as-directory
-					      (or (getenv "TMPDIR") "/tmp"))
-					     "artist-stdin."))
+				    (make-temp-file "artist-stdin.")
 				  nil))
 	   (tmp-stdout-buffer (get-buffer-create
 			       (concat "*artist-" program "*")))
-	   (tmp-stderr-file-name (make-temp-file
-				  (concat (file-name-as-directory
-					   (or (getenv "TMPDIR") "/tmp"))
-					  "artist-stdout.")))
+	   (tmp-stderr-file-name (make-temp-file "artist-stdout."))
 	   (binary-process-input nil)	; for msdos
 	   (binary-process-output nil))