comparison lisp/process.el @ 263:727739f917cb r20-5b30

Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents 0e522484dd2a
children ca9a9ec9c1c1
comparison
equal deleted inserted replaced
262:9d8607af9e13 263:727739f917cb
118 (make-temp-name "tmp:emacs")) 118 (make-temp-name "tmp:emacs"))
119 ((or (eq system-type 'ms-dos) 119 ((or (eq system-type 'ms-dos)
120 (eq system-type 'windows-nt)) 120 (eq system-type 'windows-nt))
121 (make-temp-name 121 (make-temp-name
122 (concat (file-name-as-directory 122 (concat (file-name-as-directory
123 (or (getenv "TMP") 123 (temp-directory))
124 (getenv "TEMP")
125 ""))
126 "em"))) 124 "em")))
127 (t 125 (t
128 (make-temp-name "/tmp/emacs"))))) 126 (make-temp-name
127 (concat (file-name-as-directory
128 (temp-directory))
129 "emacs"))))))
129 (unwind-protect 130 (unwind-protect
130 (progn 131 (progn
131 (if (or (eq system-type 'ms-dos) 132 (if (or (eq system-type 'ms-dos)
132 (eq system-type 'windows-nt)) 133 (eq system-type 'windows-nt))
133 (let ((buffer-file-type binary-process-output)) 134 (let ((buffer-file-type binary-process-output))