# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 895290208 0
# Node ID 171bb1a9c26039eb8ea59b8e51c47136ffe2eda7
# Parent  39f7c265d3a22176d98ebd933e181fe36692ecb8
(emerge-temp-file-prefix): Use system-tmp-directory.

diff -r 39f7c265d3a2 -r 171bb1a9c260 lisp/emerge.el
--- a/lisp/emerge.el	Sat May 16 03:41:42 1998 +0000
+++ b/lisp/emerge.el	Sat May 16 03:43:28 1998 +0000
@@ -290,16 +290,7 @@
   :group 'emerge)
 
 (defcustom emerge-temp-file-prefix
-  (let ((env (or (getenv "TMPDIR")
-		 (getenv "TMP")
-		 (getenv "TEMP")))
-	d)
-    (setq d (if (and env (> (length env) 0))
-		env
-	      "/tmp"))
-    (if (= (aref d (1- (length d))) ?/)
-	(setq d (substring d 0 -1)))
-    (concat d "/emerge"))
+  (concat system-tmp-directory "/emerge")
   "*Prefix to put on Emerge temporary file names.
 Do not start with `~/' or `~user-name/'."
   :type 'string