# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1234042786 0
# Node ID b737631c78a28464247d0ec543f8ce94464b6c47
# Parent  e2956fc8fb2a44f23742a47eb7870dfd3d4748d3
(artist-system): Allow make-temp-file to use temporary-file-directory.

diff -r e2956fc8fb2a -r b737631c78a2 lisp/textmodes/artist.el
--- 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))