Mercurial > emacs
comparison lisp/ange-ftp.el @ 22085:e8163732f7b4
(ange-ftp-tmp-name-template): Use system-tmp-directory.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 16 May 1998 03:38:59 +0000 |
| parents | 3313e702e442 |
| children | dfe597287db1 |
comparison
equal
deleted
inserted
replaced
| 22084:08f31e440c92 | 22085:e8163732f7b4 |
|---|---|
| 698 "^150 .* connection for .* (\\([0-9]+\\) bytes)" | 698 "^150 .* connection for .* (\\([0-9]+\\) bytes)" |
| 699 "*Regular expression used to determine the number of bytes in a FTP transfer." | 699 "*Regular expression used to determine the number of bytes in a FTP transfer." |
| 700 :group 'ange-ftp | 700 :group 'ange-ftp |
| 701 :type 'regexp) | 701 :type 'regexp) |
| 702 | 702 |
| 703 (defcustom ange-ftp-tmp-name-template | 703 (defcustom ange-ftp-tmp-name-template |
| 704 (if (memq system-type '(ms-dos windows-nt)) | 704 (concat system-tmp-directory "/ange-ftp") |
| 705 (concat (or (getenv "TEMP") (getenv "TMP") "c:/temp") "/ange-ftp") | |
| 706 "/tmp/ange-ftp") | |
| 707 "*Template used to create temporary files." | 705 "*Template used to create temporary files." |
| 708 :group 'ange-ftp | 706 :group 'ange-ftp |
| 709 :type 'directory) | 707 :type 'directory) |
| 710 | 708 |
| 711 (defcustom ange-ftp-gateway-tmp-name-template "/tmp/ange-ftp" | 709 (defcustom ange-ftp-gateway-tmp-name-template "/tmp/ange-ftp" |