Commits

Michael Albinus committed 9888b23

* lisp/tramp-loaddefs.el: Remove entries for tramp-ftp, tramp-gvfs
and tramp-gw.

  • Participants
  • Parent commits a7db6b8

Comments (0)

Files changed (2)

+2013-01-23  Michael Albinus  <michael.albinus@gmx.de>
+
+	* lisp/tramp-loaddefs.el: Remove entries for tramp-ftp, tramp-gvfs
+	and tramp-gw.
+
 2013-01-22  Michael Albinus  <michael.albinus@gmx.de>
 
 	* Makefile (ELCS): Remove lisp/tramp-ftp.elc

lisp/tramp-loaddefs.el

 
 ;;;***
 
-;;;### (autoloads (tramp-ftp-file-name-handler) "tramp-ftp" "/net/ford/albinus/src/tramp/lisp/tramp-ftp")
-
-(defconst tramp-ftp-method "ftp" "\
-When this method name is used, forward all calls to Ange-FTP.")
-
-(unless (featurep 'xemacs) (add-to-list 'tramp-methods (cons tramp-ftp-method nil)) (add-to-list 'tramp-default-method-alist (list "\\`ftp\\." nil tramp-ftp-method)) (add-to-list 'tramp-default-method-alist (list nil "\\`\\(anonymous\\|ftp\\)\\'" tramp-ftp-method)))
-
-(eval-after-load 'tramp '(tramp-set-completion-function tramp-ftp-method '((tramp-parse-netrc "~/.netrc"))))
-
-(autoload 'tramp-ftp-file-name-handler "tramp-ftp" "\
-Invoke the Ange-FTP handler for OPERATION.
-First arg specifies the OPERATION, second arg is a list of arguments to
-pass to the OPERATION.
-
-arguments: (OPERATION &rest ARGS)
-" nil nil)
-
-(defsubst tramp-ftp-file-name-p (filename) "\
-Check if it's a filename that should be forwarded to Ange-FTP." (string= (tramp-file-name-method (tramp-dissect-file-name filename)) tramp-ftp-method))
-
-(unless (featurep 'xemacs) (add-to-list 'tramp-foreign-file-name-handler-alist (cons 'tramp-ftp-file-name-p 'tramp-ftp-file-name-handler)))
-
-;;;***
-
-;;;### (autoloads (tramp-gvfs-file-name-handler tramp-gvfs-methods) "tramp-gvfs" "/net/ford/albinus/src/tramp/lisp/tramp-gvfs")
-
-(defvar tramp-gvfs-methods '("dav" "davs" "obex" "synce") "\
-List of methods for remote files, accessed with GVFS.")
-
-(add-to-list 'tramp-default-user-alist '("\\`synce\\'" nil nil))
-
-(when (featurep 'dbusbind) (dolist (elt tramp-gvfs-methods) (unless (assoc elt tramp-methods) (add-to-list 'tramp-methods (cons elt nil)))))
-
-(defsubst tramp-gvfs-file-name-p (filename) "\
-Check if it's a filename handled by the GVFS daemon." (and (tramp-tramp-file-p filename) (let ((method (tramp-file-name-method (tramp-dissect-file-name filename)))) (and (stringp method) (member method tramp-gvfs-methods)))))
-
-(autoload 'tramp-gvfs-file-name-handler "tramp-gvfs" "\
-Invoke the GVFS related OPERATION.
-First arg specifies the OPERATION, second arg is a list of arguments to
-pass to the OPERATION.
-
-arguments: (OPERATION &rest ARGS)
-" nil nil)
-
-(when (featurep 'dbusbind) (add-to-list 'tramp-foreign-file-name-handler-alist (cons 'tramp-gvfs-file-name-p 'tramp-gvfs-file-name-handler)))
-
-;;;***
-
-;;;### (autoloads (tramp-gw-open-connection) "tramp-gw" "/net/ford/albinus/src/tramp/lisp/tramp-gw")
-
-(defconst tramp-gw-tunnel-method "tunnel" "\
-Method to connect HTTP gateways.")
-
-(defconst tramp-gw-socks-method "socks" "\
-Method to connect SOCKS servers.")
-
-(add-to-list 'tramp-default-user-alist (list (concat "\\`" (regexp-opt (list tramp-gw-tunnel-method tramp-gw-socks-method)) "\\'") nil (user-login-name)))
-
-(autoload 'tramp-gw-open-connection "tramp-gw" "\
-Open a remote connection to VEC (see `tramp-file-name' structure).
-Take GW-VEC as SOCKS or HTTP gateway, i.e. its method must be a
-gateway method.  TARGET-VEC identifies where to connect to via
-the gateway, it can be different from VEC when there are more
-hops to be applied.
-
-It returns a string like \"localhost#port\", which must be used
-instead of the host name declared in TARGET-VEC.
-
-arguments: (VEC GW-VEC TARGET-VEC)
-" nil nil)
-
-;;;***
-
 ;;;### (autoloads (tramp-sh-file-name-handler tramp-remote-path tramp-terminal-type) "tramp-sh" "/net/ford/albinus/src/tramp/lisp/tramp-sh")
 
 (defvar tramp-terminal-type "dumb" "\