Mercurial > emacs
changeset 13594:b7cb31d324cf
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 19 Nov 1995 18:03:46 +0000 |
| parents | e27c32c7d428 |
| children | 2af9ec0bc9cc |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)