Mercurial > emacs
comparison lisp/ange-ftp.el @ 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 | 449fc86a0f4f |
| children | 1bfdc32d5744 |
comparison
equal
deleted
inserted
replaced
| 9661:ca4418b4e8ec | 9662:ca4987708cc0 |
|---|---|
| 858 | 858 |
| 859 ;;;; ------------------------------------------------------------ | 859 ;;;; ------------------------------------------------------------ |
| 860 ;;;; Internal variables. | 860 ;;;; Internal variables. |
| 861 ;;;; ------------------------------------------------------------ | 861 ;;;; ------------------------------------------------------------ |
| 862 | 862 |
| 863 (defconst ange-ftp-version "$Revision: 1.57 $") | 863 (defconst ange-ftp-version "$Revision: 1.58 $") |
| 864 | 864 |
| 865 (defvar ange-ftp-data-buffer-name " *ftp data*" | 865 (defvar ange-ftp-data-buffer-name " *ftp data*" |
| 866 "Buffer name to hold directory listing data received from ftp process.") | 866 "Buffer name to hold directory listing data received from ftp process.") |
| 867 | 867 |
| 868 (defvar ange-ftp-netrc-modtime nil | 868 (defvar ange-ftp-netrc-modtime nil |
| 1404 t) | 1404 t) |
| 1405 ((string-match ange-ftp-good-msgs line) | 1405 ((string-match ange-ftp-good-msgs line) |
| 1406 (setq ange-ftp-process-busy nil | 1406 (setq ange-ftp-process-busy nil |
| 1407 ange-ftp-process-result t | 1407 ange-ftp-process-result t |
| 1408 ange-ftp-process-result-line line)) | 1408 ange-ftp-process-result-line line)) |
| 1409 ((string-match ange-ftp-multi-msgs line) | |
| 1410 (setq ange-ftp-process-multi-skip t)) | |
| 1409 ((string-match ange-ftp-fatal-msgs line) | 1411 ((string-match ange-ftp-fatal-msgs line) |
| 1410 (delete-process proc) | 1412 (delete-process proc) |
| 1411 (setq ange-ftp-process-busy nil | 1413 (setq ange-ftp-process-busy nil |
| 1412 ange-ftp-process-result-line line)) | 1414 ange-ftp-process-result-line line)) |
| 1413 ((string-match ange-ftp-multi-msgs line) | |
| 1414 (setq ange-ftp-process-multi-skip t)) | |
| 1415 (ange-ftp-process-multi-skip | 1415 (ange-ftp-process-multi-skip |
| 1416 t) | 1416 t) |
| 1417 (t | 1417 (t |
| 1418 (setq ange-ftp-process-busy nil | 1418 (setq ange-ftp-process-busy nil |
| 1419 ange-ftp-process-result-line line)))) | 1419 ange-ftp-process-result-line line)))) |