commit/tramp: albinus: * lisp/tramp-loaddefs.el: Remove entries for tramp-ftp, tramp-gvfs

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&gt; + + * lisp/tramp-loaddefs.el: Remove entries for tramp-ftp, tramp-gvfs + and tramp-gw. + 2013-01-22 Michael Albinus <michael.albinus(a)gmx.de&gt; * 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