From 210accc8a774a5f4dcbef36c598620c8065cff1c Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Wed, 3 Jul 2002 18:42:34 +0000 Subject: [PATCH] (tramp-handle-ange-ftp): Move interactive spec after doc string. --- lisp/ChangeLog | 5 +++++ lisp/net/tramp.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ebd18a19cf..28847f723be 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-07-03 Andreas Schwab + + * net/tramp.el (tramp-handle-ange-ftp): Move interactive spec + after doc string. + 2002-07-03 Juanma Barranquero * net/tramp.el (tramp-send-eof): Fix typo. diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index e2f485be518..8917c62ac02 100644 --- 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))) -- 2.39.5