From 909a7944cb8ec8b8591e75c2cb8acebdbb4d52f6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 19 Nov 1995 18:03:46 +0000 Subject: [PATCH] (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. --- lisp/ange-ftp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index cd43215632e..4ad8564bc70 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -1422,7 +1422,8 @@ good, skip, fatal, or unknown." 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 @@ good, skip, fatal, or unknown." (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) -- 2.39.2