Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/code-process.el	Mon Aug 13 10:23:52 2007 +0200
+++ b/lisp/code-process.el	Mon Aug 13 10:24:41 2007 +0200
@@ -111,12 +111,13 @@
 			 (eq system-type 'windows-nt))
 		     (make-temp-name
 		      (concat (file-name-as-directory
-			       (or (getenv "TMP")
-				   (getenv "TEMP")
-				   ""))
+			       (temp-directory))
 			       "em")))
                     (t
-                     (make-temp-name "/tmp/emacs")))))
+		     (make-temp-name
+		      (concat (file-name-as-directory
+			       (temp-directory))
+			      "emacs"))))))
     (unwind-protect
 	(let (cs-r cs-w)
 	  (let (ret)