Mercurial > emacs
changeset 5265:7305f7204c67
(ange-ftp-hash-mark-msgs): Make match more general.
(ange-ftp-gateway-prompt-pattern): Don't match more than one line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 23 Dec 1993 03:05:12 +0000 |
| parents | a60a8979d34b |
| children | 0581b0d428e9 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Thu Dec 23 02:56:37 1993 +0000 +++ b/lisp/ange-ftp.el Thu Dec 23 03:05:12 1993 +0000 @@ -729,7 +729,7 @@ are rsh (remsh on hp-ux), telnet and rlogin. See also the gateway variable above.") -(defvar ange-ftp-gateway-prompt-pattern "^[^#$%>;]*[#$%>;] *" +(defvar ange-ftp-gateway-prompt-pattern "^[^#$%>;\n]*[#$%>;] *" "*Regexp used to detect that the logging-in sequence is completed on the gateway machine and that the shell is now awaiting input. Make this regexp as strict as possible; it shouldn't match *anything* at all except the user's @@ -857,7 +857,7 @@ ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.36 $") +(defconst ange-ftp-version "$Revision: 1.37 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -1851,7 +1851,7 @@ (cdr result))))))) (defvar ange-ftp-hash-mark-msgs - "[hH]ash mark [^0-9]*\\([0-9]+\\)" + "[hH]ash mark \\(printing on \\)?(?[^0-9]*\\([0-9]+\\)" "*Regexp matching the FTP client's output upon doing a HASH command.") (defun ange-ftp-guess-hash-mark-size (proc)