From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 16 May 1998 03:38:59 +0000 (+0000)
Subject: (ange-ftp-tmp-name-template): Use system-tmp-directory.
X-Git-Tag: emacs-20.3~992
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f6769c4f1d0ff057d009ee62bc1ec00a5294fa7;p=emacs.git

(ange-ftp-tmp-name-template): Use system-tmp-directory.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index bd190091ec3..ecee7db88df 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -700,10 +700,8 @@ These mean that the FTP process should (or already has) been killed."
   :group 'ange-ftp
   :type 'regexp)
 
-(defcustom ange-ftp-tmp-name-template
-  (if (memq system-type '(ms-dos windows-nt))
-      (concat (or (getenv "TEMP") (getenv "TMP") "c:/temp") "/ange-ftp")
-    "/tmp/ange-ftp")
+(defcustom ange-ftp-tmp-name-template 
+  (concat system-tmp-directory "/ange-ftp")
   "*Template used to create temporary files."
   :group 'ange-ftp
   :type 'directory)