diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-10-17 19:48:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-10-17 19:48:04 +0000 |
| commit | 68ccc91f99a3d5f83484b5aaa3bd2c9987acda92 (patch) | |
| tree | 2937b2214abd1343736fd63e9029e3e401a1869b /lisp | |
| parent | b9ca3cdb313751269733f43f55bcb01bd95454ce (diff) | |
| download | emacs-68ccc91f99a3d5f83484b5aaa3bd2c9987acda92.tar.gz emacs-68ccc91f99a3d5f83484b5aaa3bd2c9987acda92.tar.bz2 emacs-68ccc91f99a3d5f83484b5aaa3bd2c9987acda92.zip | |
(ange-ftp-waiting-flag): defvar moved.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ange-ftp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 08b9759b7e6..6e3e0f51686 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -3534,6 +3534,8 @@ system TYPE.") t-parsed t-host t-user t-name t-abbr nil nil cont nowait)))))) +(defvar ange-ftp-waiting-flag nil) + ;; next part of copying routine. (defun ange-ftp-cf1 (result line filename newname binary msg @@ -3936,8 +3938,6 @@ directory, so that Emacs will know its current contents." (format "Getting %s" fn1)) tmp1)))) -(defvar ange-ftp-waiting-flag nil) - (defun ange-ftp-load (file &optional noerror nomessage nosuffix) (if (ange-ftp-ftp-name file) (let ((tryfiles (if nosuffix |