diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-23 04:55:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-23 04:55:35 +0000 |
| commit | 13d9a3a96f21d3feff3e18f8b0321f6a13160cba (patch) | |
| tree | 6ddb1f42469556122937990f5c6ae674f015aa15 /lisp/ange-ftp.el | |
| parent | 0fd8a324e2463f413e76ee329d4218d96450a26e (diff) | |
| download | emacs-13d9a3a96f21d3feff3e18f8b0321f6a13160cba.tar.gz | |
(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.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index ecb56f2072f..869726e3bc9 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -860,7 +860,7 @@ SIZE, if supplied, should be a prime number." ;;;; 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 @@ good, skip, fatal, or unknown." (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 |