Mercurial > emacs

changeset 22088:39f7c265d3a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ediff-temp-file-prefix): Use system-tmp-directory.
author Richard M. Stallman <rms@gnu.org>
date Sat, 16 May 1998 03:41:42 +0000
parents f472b66ed66b
children 171bb1a9c260
files lisp/ediff-init.el
diffstat 1 files changed, 3 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ediff-init.el	Sat May 16 03:40:39 1998 +0000
+++ b/lisp/ediff-init.el	Sat May 16 03:41:42 1998 +0000
@@ -1204,19 +1204,9 @@
   :group 'ediff)
   
 (defcustom ediff-temp-file-prefix
-  (let ((env (or (getenv "TMPDIR")
-		 (getenv "TMP")
-		 (getenv "TEMP")))
-	d)
-    (setq d (if (and env (> (length env) 0))
-		env
-	      (cond ((memq system-type '(vax-vms axp-vms)) "SYS$SCRATCH:")
- 		    ((eq system-type 'ms-dos) "c:/")
- 		    (t "/tmp"))))
-    ;; The following is to make sure we get something to which we can
-    ;; add directory levels under VMS.
-    (setq d (file-name-as-directory (directory-file-name d)))
-    )
+  ;; The following is to make sure we get something to which we can
+  ;; add directory levels under VMS.
+  (file-name-as-directory system-tmp-directory)
   "*Prefix to put on Ediff temporary file names.
 Do not start with `~/' or `~user-name/'."
   :type 'string