From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 May 1998 03:43:28 +0000 (+0000)
Subject: (emerge-temp-file-prefix): Use system-tmp-directory.
X-Git-Tag: emacs-20.3~988
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4244d3124aa91a9603597c14a8e0d5b7c54512e;p=emacs.git

(emerge-temp-file-prefix): Use system-tmp-directory.
---

diff --git a/lisp/emerge.el b/lisp/emerge.el
index 8794ab45e55..d42f8ff2f3e 100644
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@@ -290,16 +290,7 @@ displaying a difference."
   :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