From f469f80c7d95ab4bc4a85279caf8a32fbba38962 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 25 Nov 1993 06:51:50 +0000 Subject: [PATCH] (ange-ftp-binary-file-name-regexp): Accept .tgz and .taz files. --- lisp/ange-ftp.el | 5 +++-- 1 file 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.") (defvar ange-ftp-binary-file-name-regexp (concat "\\.[zZ]$\\|\\.lzh$\\|\\.arc$\\|\\.zip$\\|\\.zoo$\\|\\.tar$\\|" "\\.dvi$\\|\\.ps$\\|\\.elc$\\|TAGS$\\|\\.gif$\\|" - "\\.EXE\\(;[0-9]+\\)?$\\|\\.[zZ]-part-..$\\|\\.gz$") + "\\.EXE\\(;[0-9]+\\)?$\\|\\.[zZ]-part-..$\\|\\.gz$\\|" + "\\.taz$\\|\\.tgz$") "*If a file matches this regexp then it is transferred in binary mode.") (defvar ange-ftp-gateway-host nil @@ -856,7 +857,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.35 $") +(defconst ange-ftp-version "$Revision: 1.36 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") -- 2.39.5