mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

(artist-system): Allow make-temp-file to use temporary-file-directory.

Browse Source
This commit is contained in:
Chong Yidong 2009-02-07 21:39:46 +00:00
parent e2a42dd50e
commit e3fd4ebfb1
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/textmodes/artist.el
View File

@ -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))