diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-05-06 03:42:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-05-06 03:42:36 +0000 |
| commit | 742cfeaaa8fa068b7d8fe0e3826169edee15ec1a (patch) | |
| tree | d31c57aae391b171181ab1d073a2b64e208d2885 /lisp/=ftp.el | |
| parent | af55cfc64fb3eed108aacbd2befc9b2cf7221958 (diff) | |
| download | emacs-742cfeaaa8fa068b7d8fe0e3826169edee15ec1a.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/=ftp.el')
| -rw-r--r-- | lisp/=ftp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/=ftp.el b/lisp/=ftp.el index 919a1d809b1..44655357ac3 100644 --- a/lisp/=ftp.el +++ b/lisp/=ftp.el @@ -252,6 +252,9 @@ USER and PASSWORD are defaulted from the values used when ((looking-at ignore) ;; Ignore status messages whose codes indicate no problem. (forward-line 1)) + ((looking-at "^[^0-9]") + ;; Ignore any lines that don't have status codes. + (forward-line 1)) ((not (search-forward "\n" nil t)) ;; the way asynchronous process-output works with (point) ;; is really really disgusting. @@ -260,9 +263,6 @@ USER and PASSWORD are defaulted from the values used when (accept-process-output process) (error nil)) (goto-char p)) - ((looking-at "^[a-z]") - ;; Ignore any lines that don't have error codes. - (forward-line 1)) (t (setq p nil)))) p)) |