Mercurial > emacs

changeset 22089:171bb1a9c260

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(emerge-temp-file-prefix): Use system-tmp-directory.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 May 1998 03:43:28 +0000
parents 39f7c265d3a2
children 0072d85ea09a
files lisp/emerge.el
diffstat 1 files changed, 1 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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