# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 908653684 0
# Node ID abcdf0c8e98d9067bf27648f8786c85d633693f0
# Parent  43849bed4a16ae52a28429e9e498563563b96806
(ange-ftp-waiting-flag): defvar moved.

diff -r 43849bed4a16 -r abcdf0c8e98d lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Sat Oct 17 19:22:41 1998 +0000
+++ b/lisp/ange-ftp.el	Sat Oct 17 19:48:04 1998 +0000
@@ -3534,6 +3534,8 @@
 			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 @@
 				       (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