Mercurial > hg > xemacs-beta
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)) |