mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1992-05-06 03:42:36 +00:00
parent b5e86cb3e1
commit bc98c79cb7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ftp.el
View File

@ -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))