summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1992-05-06 03:42:36 +0000
committerRichard M. Stallman <rms@gnu.org>1992-05-06 03:42:36 +0000
commitbc98c79cb71b16f5f1a934927d41c9af9ccb2d62 (patch)
tree1d2065d640d3f84615e03b1354971e889dfb0077 /lisp
parentb5e86cb3e106e129f997fcbdbd7329b3f9ce2138 (diff)
downloademacs-bc98c79cb71b16f5f1a934927d41c9af9ccb2d62.tar.gz
*** empty log message ***
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ftp.el6
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))