changeset 633:379b94c9f29e

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Wed, 06 May 1992 03:42:36 +0000
parents 4f093eb16009
children 52d0ff659265
files lisp/=ftp.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=ftp.el	Tue May 05 22:12:04 1992 +0000
+++ b/lisp/=ftp.el	Wed May 06 03:42:36 1992 +0000
@@ -252,6 +252,9 @@
 	    ((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 @@
 		 (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))