diff options
| author | Richard M. Stallman | 1993-11-25 06:51:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-25 06:51:50 +0000 |
| commit | f469f80c7d95ab4bc4a85279caf8a32fbba38962 (patch) | |
| tree | 2280099d573a6ec3b4f16a48bbfe4c9442b88a4c | |
| parent | 7819b9be12feadea6d132db28259d74e9c140e62 (diff) | |
| download | emacs-f469f80c7d95ab4bc4a85279caf8a32fbba38962.tar.gz emacs-f469f80c7d95ab4bc4a85279caf8a32fbba38962.zip | |
(ange-ftp-binary-file-name-regexp): Accept .tgz and .taz files.
| -rw-r--r-- | lisp/ange-ftp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 57313dcbffc..099d60660f3 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el | |||
| @@ -707,7 +707,8 @@ process uses the \'dir\' command to get directory information.") | |||
| 707 | (defvar ange-ftp-binary-file-name-regexp | 707 | (defvar ange-ftp-binary-file-name-regexp |
| 708 | (concat "\\.[zZ]$\\|\\.lzh$\\|\\.arc$\\|\\.zip$\\|\\.zoo$\\|\\.tar$\\|" | 708 | (concat "\\.[zZ]$\\|\\.lzh$\\|\\.arc$\\|\\.zip$\\|\\.zoo$\\|\\.tar$\\|" |
| 709 | "\\.dvi$\\|\\.ps$\\|\\.elc$\\|TAGS$\\|\\.gif$\\|" | 709 | "\\.dvi$\\|\\.ps$\\|\\.elc$\\|TAGS$\\|\\.gif$\\|" |
| 710 | "\\.EXE\\(;[0-9]+\\)?$\\|\\.[zZ]-part-..$\\|\\.gz$") | 710 | "\\.EXE\\(;[0-9]+\\)?$\\|\\.[zZ]-part-..$\\|\\.gz$\\|" |
| 711 | "\\.taz$\\|\\.tgz$") | ||
| 711 | "*If a file matches this regexp then it is transferred in binary mode.") | 712 | "*If a file matches this regexp then it is transferred in binary mode.") |
| 712 | 713 | ||
| 713 | (defvar ange-ftp-gateway-host nil | 714 | (defvar ange-ftp-gateway-host nil |
| @@ -856,7 +857,7 @@ SIZE, if supplied, should be a prime number." | |||
| 856 | ;;;; Internal variables. | 857 | ;;;; Internal variables. |
| 857 | ;;;; ------------------------------------------------------------ | 858 | ;;;; ------------------------------------------------------------ |
| 858 | 859 | ||
| 859 | (defconst ange-ftp-version "$Revision: 1.35 $") | 860 | (defconst ange-ftp-version "$Revision: 1.36 $") |
| 860 | 861 | ||
| 861 | (defvar ange-ftp-data-buffer-name " *ftp data*" | 862 | (defvar ange-ftp-data-buffer-name " *ftp data*" |
| 862 | "Buffer name to hold directory listing data received from ftp process.") | 863 | "Buffer name to hold directory listing data received from ftp process.") |