From e3fd4ebfb1e00ae024cf59cb9ba6165581ea9075 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 7 Feb 2009 21:39:46 +0000 Subject: [PATCH] (artist-system): Allow make-temp-file to use temporary-file-directory. --- lisp/textmodes/artist.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index 46b81efb8b6..6920b18045c 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el @@ -1813,17 +1813,11 @@ Optional args PROGRAM-ARGS are arguments to PROGRAM. 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)) -- 2.39.5