From 812daf81cc214d42467a8c6614a02dc4872cdc48 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Jan 1994 09:13:52 +0000 Subject: [PATCH] (ange-ftp-hash-mark-msgs): Undo previous change. --- 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 e1efeed67f6..8f535c43010 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -857,7 +857,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.38 $") +(defconst ange-ftp-version "$Revision: 1.39 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -1850,8 +1850,9 @@ PROC is the process to the FTP-client." (concat "USER request failed: " (cdr result))))))) +;; ange@hplb.hpl.hp.com says this should not be changed. (defvar ange-ftp-hash-mark-msgs - "[hH]ash mark \\(printing on \\)?(?[^0-9]*\\([0-9]+\\)" + "[hH]ash mark [^0-9]*\\([0-9]+\\)" "*Regexp matching the FTP client's output upon doing a HASH command.") (defun ange-ftp-guess-hash-mark-size (proc) -- 2.39.5