1773 |
Return a list (RETURN-CODE STDOUT STDERR)." |
Return a list (RETURN-CODE STDOUT STDERR)." |
1774 |
(save-excursion |
(save-excursion |
1775 |
(let* ((tmp-stdin-file-name (if stdin |
(let* ((tmp-stdin-file-name (if stdin |
1776 |
(make-temp-name |
(make-temp-file |
1777 |
(concat (file-name-as-directory |
(concat (file-name-as-directory |
1778 |
(or (getenv "TMPDIR") "/tmp")) |
(or (getenv "TMPDIR") "/tmp")) |
1779 |
"artist-stdin.")) |
"artist-stdin.")) |
1780 |
nil)) |
nil)) |
1781 |
(tmp-stdout-buffer (get-buffer-create |
(tmp-stdout-buffer (get-buffer-create |
1782 |
(concat "*artist-" program "*"))) |
(concat "*artist-" program "*"))) |
1783 |
(tmp-stderr-file-name (make-temp-name |
(tmp-stderr-file-name (make-temp-file |
1784 |
(concat (file-name-as-directory |
(concat (file-name-as-directory |
1785 |
(or (getenv "TMPDIR") "/tmp")) |
(or (getenv "TMPDIR") "/tmp")) |
1786 |
"artist-stdout."))) |
"artist-stdout."))) |