Mercurial > emacs
comparison lisp/=ftp.el @ 81:ef6cee0af549
*** empty log message ***
| author | Robert J. Chassell <bob@rattlesnake.com> |
|---|---|
| date | Fri, 24 Aug 1990 19:37:09 +0000 |
| parents | b83e7a34c7ef |
| children | 036865305387 |
comparison
equal
deleted
inserted
replaced
| 80:9ebfcd47de59 | 81:ef6cee0af549 |
|---|---|
| 242 ((looking-at "^ftp> \\|^\n") | 242 ((looking-at "^ftp> \\|^\n") |
| 243 (goto-char (match-end 0))) | 243 (goto-char (match-end 0))) |
| 244 ((looking-at ignore) | 244 ((looking-at ignore) |
| 245 (forward-line 1)) | 245 (forward-line 1)) |
| 246 ((not (search-forward "\n" nil t)) | 246 ((not (search-forward "\n" nil t)) |
| 247 ;; the way asynchronous process-output fucks with (point) | 247 ;; the way asynchronous process-output works with (point) |
| 248 ;; is really really disgusting. | 248 ;; is really really disgusting. |
| 249 (setq p (point)) | 249 (setq p (point)) |
| 250 (condition-case () | 250 (condition-case () |
| 251 (accept-process-output process) | 251 (accept-process-output process) |
| 252 (error nil)) | 252 (error nil)) |