Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents 11cf20601dec
children ca9a9ec9c1c1
comparison
equal deleted inserted replaced
262:9d8607af9e13 263:727739f917cb
109 (make-temp-name "tmp:emacs")) 109 (make-temp-name "tmp:emacs"))
110 ((or (eq system-type 'ms-dos) 110 ((or (eq system-type 'ms-dos)
111 (eq system-type 'windows-nt)) 111 (eq system-type 'windows-nt))
112 (make-temp-name 112 (make-temp-name
113 (concat (file-name-as-directory 113 (concat (file-name-as-directory
114 (or (getenv "TMP") 114 (temp-directory))
115 (getenv "TEMP")
116 ""))
117 "em"))) 115 "em")))
118 (t 116 (t
119 (make-temp-name "/tmp/emacs"))))) 117 (make-temp-name
118 (concat (file-name-as-directory
119 (temp-directory))
120 "emacs"))))))
120 (unwind-protect 121 (unwind-protect
121 (let (cs-r cs-w) 122 (let (cs-r cs-w)
122 (let (ret) 123 (let (ret)
123 (catch 'found 124 (catch 'found
124 (let ((alist process-coding-system-alist) 125 (let ((alist process-coding-system-alist)