Mercurial > emacs
comparison lisp/ange-ftp.el @ 23483:abcdf0c8e98d
(ange-ftp-waiting-flag): defvar moved.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 Oct 1998 19:48:04 +0000 |
| parents | 7fb0a3c74e1d |
| children | e782dce34a19 |
comparison
equal
deleted
inserted
replaced
| 23482:43849bed4a16 | 23483:abcdf0c8e98d |
|---|---|
| 3532 filename newname binary msg | 3532 filename newname binary msg |
| 3533 f-parsed f-host f-user f-name f-abbr | 3533 f-parsed f-host f-user f-name f-abbr |
| 3534 t-parsed t-host t-user t-name t-abbr | 3534 t-parsed t-host t-user t-name t-abbr |
| 3535 nil nil cont nowait)))))) | 3535 nil nil cont nowait)))))) |
| 3536 | 3536 |
| 3537 (defvar ange-ftp-waiting-flag nil) | |
| 3538 | |
| 3537 ;; next part of copying routine. | 3539 ;; next part of copying routine. |
| 3538 (defun ange-ftp-cf1 (result line | 3540 (defun ange-ftp-cf1 (result line |
| 3539 filename newname binary msg | 3541 filename newname binary msg |
| 3540 f-parsed f-host f-user f-name f-abbr | 3542 f-parsed f-host f-user f-name f-abbr |
| 3541 t-parsed t-host t-user t-name t-abbr | 3543 t-parsed t-host t-user t-name t-abbr |
| 3933 (if pa1 | 3935 (if pa1 |
| 3934 (let ((tmp1 (ange-ftp-make-tmp-name (car pa1)))) | 3936 (let ((tmp1 (ange-ftp-make-tmp-name (car pa1)))) |
| 3935 (ange-ftp-copy-file-internal fn1 tmp1 t nil | 3937 (ange-ftp-copy-file-internal fn1 tmp1 t nil |
| 3936 (format "Getting %s" fn1)) | 3938 (format "Getting %s" fn1)) |
| 3937 tmp1)))) | 3939 tmp1)))) |
| 3938 | |
| 3939 (defvar ange-ftp-waiting-flag nil) | |
| 3940 | 3940 |
| 3941 (defun ange-ftp-load (file &optional noerror nomessage nosuffix) | 3941 (defun ange-ftp-load (file &optional noerror nomessage nosuffix) |
| 3942 (if (ange-ftp-ftp-name file) | 3942 (if (ange-ftp-ftp-name file) |
| 3943 (let ((tryfiles (if nosuffix | 3943 (let ((tryfiles (if nosuffix |
| 3944 (list file) | 3944 (list file) |