1 new commit in tramp:
https://bitbucket.org/xemacs/tramp/commits/9888b23060f7/
changeset: 9888b23060f7
user: albinus
date: 2013-01-23 13:26:52
summary: * lisp/tramp-loaddefs.el: Remove entries for tramp-ftp, tramp-gvfs
and tramp-gw.
affected #: 2 files
diff -r a7db6b85b7ffc16ad7727004eee797e9a5be2c57 -r
9888b23060f7275c2a6df865931c34ef868eb5fb ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2013-01-23 Michael Albinus <michael.albinus(a)gmx.de>
+
+ * lisp/tramp-loaddefs.el: Remove entries for tramp-ftp, tramp-gvfs
+ and tramp-gw.
+
2013-01-22 Michael Albinus <michael.albinus(a)gmx.de>
* Makefile (ELCS): Remove lisp/tramp-ftp.elc
diff -r a7db6b85b7ffc16ad7727004eee797e9a5be2c57 -r
9888b23060f7275c2a6df865931c34ef868eb5fb lisp/tramp-loaddefs.el
--- a/lisp/tramp-loaddefs.el
+++ b/lisp/tramp-loaddefs.el
@@ -469,79 +469,6 @@
;;;***
-;;;### (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" "\
Repository URL:
https://bitbucket.org/xemacs/tramp/
--
This is a commit notification from
bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches