(tramp-handle-ange-ftp): Move interactive spec

after doc string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ebd18a19cf7d1a66f019541e7ab89e3bc8f33b8..28847f723be1540a20a62c7e73703ea6e1eb9282 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-03  Andreas Schwab  <schwab@suse.de>
+
+       * net/tramp.el (tramp-handle-ange-ftp): Move interactive spec
+       after doc string.
+
 2002-07-03  Juanma Barranquero  <lektu@terra.es>
 
        * net/tramp.el (tramp-send-eof): Fix typo.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index e2f485be5181b82ab9afecfb670d9a54d62542a5..8917c62ac023a0fad0dcba513a7d284d2f3f6605 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2973,11 +2973,11 @@ Falls back to normal file name handler if no tramp file name handler exists."
 
 ;;;###autoload
 (defun tramp-handle-ange-ftp ()
-  (interactive)
   "Turn Ange-FTP off and an Ange-FTP-like filename format.
 Requests suitable for Ange-FTP will be forwarded to Ange-FTP.
 Also see the variables `tramp-ftp-method', `tramp-default-method',
 and `tramp-default-method-alist'."
+  (interactive)
   (let ((a1 (rassq 'ange-ftp-hook-function file-name-handler-alist))
        (a2 (rassq 'ange-ftp-completion-hook-function file-name-handler-alist))
        (a3 (rassq 'tramp-file-name-handler file-name-handler-alist)))