From: Richard M. Stallman Date: Sun, 3 Mar 2002 22:22:42 +0000 (+0000) Subject: (artist-system): Use make-temp-file. X-Git-Tag: ttn-vms-21-2-B4~16356 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6320b36270d59a2b1d6be9aa17ce0781ef253373;p=emacs.git (artist-system): Use make-temp-file. --- diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index 12f0e253b5a..d287831681d 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el @@ -1773,14 +1773,14 @@ 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-name + (make-temp-file (concat (file-name-as-directory (or (getenv "TMPDIR") "/tmp")) "artist-stdin.")) nil)) (tmp-stdout-buffer (get-buffer-create (concat "*artist-" program "*"))) - (tmp-stderr-file-name (make-temp-name + (tmp-stderr-file-name (make-temp-file (concat (file-name-as-directory (or (getenv "TMPDIR") "/tmp")) "artist-stdout.")))