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 | bc98c79cb71b16f5f1a934927d41c9af9ccb2d62 (patch) | |
| tree | 1d2065d640d3f84615e03b1354971e889dfb0077 /lisp | |
| parent | b5e86cb3e106e129f997fcbdbd7329b3f9ce2138 (diff) | |
| download | emacs-bc98c79cb71b16f5f1a934927d41c9af9ccb2d62.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp')
| -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)) |
