diff options
| author | Roland McGrath <roland@gnu.org> | 1993-04-22 22:56:54 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-04-22 22:56:54 +0000 |
| commit | 46421cea476052513e1e4d55de9e174ce7688dfc (patch) | |
| tree | 72fc54acf4faad1417de7d5645d29a85f4e396f8 | |
| parent | 9e9bf716c4261a8d59f441e8b7e15ace926d982c (diff) | |
| download | emacs-46421cea476052513e1e4d55de9e174ce7688dfc.tar.gz emacs-46421cea476052513e1e4d55de9e174ce7688dfc.tar.bz2 emacs-46421cea476052513e1e4d55de9e174ce7688dfc.zip | |
(ange-ftp-binary-file-name-regexp): Match .z and .z-part-?? files.
| -rw-r--r-- | lisp/ange-ftp.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 6d21a3d4951..4beae0faaaa 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -1,6 +1,6 @@ ;;; ange-ftp.el --- transparent FTP support for GNU Emacs -;;; Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc. +;;; Copyright (C) 1989, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. ;;; ??? Waiting for papers from several people. ;;; ;; Author: Andy Norman (ange@hplb.hpl.hp.com) @@ -8,7 +8,7 @@ ;;; ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 1, or (at your option) +;;; the Free Software Foundation; either version 2, or (at your option) ;;; any later version. ;;; ;;; This program is distributed in the hope that it will be useful, @@ -706,9 +706,9 @@ If nil then prompt the user for a password.") process uses the \'dir\' command to get directory information.") (defvar ange-ftp-binary-file-name-regexp - (concat "\\.Z$\\|\\.lzh$\\|\\.arc$\\|\\.zip$\\|\\.zoo$\\|\\.tar$\\|" + (concat "\\.[zZ]$\\|\\.lzh$\\|\\.arc$\\|\\.zip$\\|\\.zoo$\\|\\.tar$\\|" "\\.dvi$\\|\\.ps$\\|\\.elc$\\|TAGS$\\|\\.gif$\\|" - "\\.EXE\\(;[0-9]+\\)?$\\|\\.Z-part-..$") + "\\.EXE\\(;[0-9]+\\)?$\\|\\.[zZ]-part-..$") "*If a file matches this regexp then it is transferred in binary mode.") (defvar ange-ftp-gateway-host nil @@ -859,7 +859,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.15 $") +(defconst ange-ftp-version "$Revision: 1.16 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") |