# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816804226 0
# Node ID b7cb31d324cf7d17fe7ba9ad28a3a8e69e7e1fa0
# Parent  e27c32c7d428bae960b2509820bdaa13af537631
(ange-ftp-process-handle-hash): If
ange-ftp-hash-mark-unit is nil, don't display a message.
(ange-ftp-process-filter): Call ange-ftp-process-handle-hash even
if ange-ftp-hash-mark-unit is nil.

diff -r e27c32c7d428 -r b7cb31d324cf lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Sun Nov 19 03:39:22 1995 +0000
+++ b/lisp/ange-ftp.el	Sun Nov 19 18:03:46 1995 +0000
@@ -1422,7 +1422,8 @@
 	ange-ftp-hash-mark-count (+ (- (match-end 0)
 				       (match-beginning 0))
 				    ange-ftp-hash-mark-count))
-  (and ange-ftp-process-msg
+  (and ange-ftp-hash-mark-unit
+       ange-ftp-process-msg
        ange-ftp-process-verbose
        (not (eq (selected-window) (minibuffer-window)))
        (not (boundp 'search-message))	;screws up isearch otherwise
@@ -1466,8 +1467,7 @@
 	      (set-buffer (process-buffer proc))
 	      
 	      ;; handle hash mark printing
-	      (and ange-ftp-hash-mark-unit
-		   ange-ftp-process-busy
+	      (and ange-ftp-process-busy
 		   (string-match "^#+$" str)
 		   (setq str (ange-ftp-process-handle-hash str)))
 	      (comint-output-filter proc str)