Mercurial > hg > xemacs-beta

diff lisp/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 0e522484dd2a
children ca9a9ec9c1c1
line wrap: on
line diff
--- a/lisp/process.el	Mon Aug 13 10:23:52 2007 +0200
+++ b/lisp/process.el	Mon Aug 13 10:24:41 2007 +0200
@@ -120,12 +120,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
 	(progn
 	  (if (or (eq system-type 'ms-dos)