[Emacs-diffs] Changes to emacs/lisp/net/tramp.el

[Andreas Schwab]

Index: emacs/lisp/net/tramp.el
diff -c emacs/lisp/net/tramp.el:1.6 emacs/lisp/net/tramp.el:1.7
*** emacs/lisp/net/tramp.el:1.6 Wed Jul  3 06:00:18 2002
--- emacs/lisp/net/tramp.el     Wed Jul  3 14:42:23 2002
***************
*** 2973,2983 ****
  
  ;;;###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'."
    (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)))
--- 2973,2983 ----
  
  ;;;###autoload
  (defun tramp-handle-ange-ftp ()
    "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)))