Mercurial > emacs
changeset 9662:ca4987708cc0
(ange-ftp-process-handle-line): Check for a
multi-line message before an error message. Fixes problem of
thinking there is an error in narrative text.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 23 Oct 1994 04:55:35 +0000 |
| parents | ca4418b4e8ec |
| children | 8bd05e79e0bd |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ange-ftp.el Sun Oct 23 01:05:26 1994 +0000 +++ b/lisp/ange-ftp.el Sun Oct 23 04:55:35 1994 +0000 @@ -860,7 +860,7 @@ ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.57 $") +(defconst ange-ftp-version "$Revision: 1.58 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -1406,12 +1406,12 @@ (setq ange-ftp-process-busy nil ange-ftp-process-result t ange-ftp-process-result-line line)) + ((string-match ange-ftp-multi-msgs line) + (setq ange-ftp-process-multi-skip t)) ((string-match ange-ftp-fatal-msgs line) (delete-process proc) (setq ange-ftp-process-busy nil ange-ftp-process-result-line line)) - ((string-match ange-ftp-multi-msgs line) - (setq ange-ftp-process-multi-skip t)) (ange-ftp-process-multi-skip t) (t