diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-02-07 21:39:46 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-02-07 21:39:46 +0000 |
| commit | e3fd4ebfb1e00ae024cf59cb9ba6165581ea9075 (patch) | |
| tree | 9ef63606c79675e3853bd921927891be3324a411 /lisp/textmodes/artist.el | |
| parent | e2a42dd50ee6bdfbd28277572782db9c7ffe512c (diff) | |
| download | emacs-e3fd4ebfb1e00ae024cf59cb9ba6165581ea9075.tar.gz | |
(artist-system): Allow make-temp-file to use temporary-file-directory.
Diffstat (limited to 'lisp/textmodes/artist.el')
| -rw-r--r-- | lisp/textmodes/artist.el | 10 |
1 files 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)) |