* net/tramp.el (tramp-default-method-alist)

(tramp-default-user-alist)
(tramp-local-host-regexp, tramp-prefix-domain-format)
(tramp-prefix-domain-regexp): Set tramp-autoload cookie.

* net/tramp-ftp.el:
* net/tramp-gvfs.el:
* net/tramp-gw.el:
* net/tramp-imap.el:
* net/tramp-sh.el:
* net/tramp-smb.el: Add tramp-autoload cookie for initialisation
code of `tramp-default-method-alist' and `tramp-default-user-alist'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e9a7d09647f3e0efff39642a4b483ab9f6907dc..85a2b2114ec828e6e49c5f1fb89560a74a72f619 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,18 @@
+2010-12-30  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el (tramp-default-method-alist)
+       (tramp-default-user-alist)
+       (tramp-local-host-regexp, tramp-prefix-domain-format)
+       (tramp-prefix-domain-regexp): Set tramp-autoload cookie.
+
+       * net/tramp-ftp.el:
+       * net/tramp-gvfs.el:
+       * net/tramp-gw.el:
+       * net/tramp-imap.el:
+       * net/tramp-sh.el:
+       * net/tramp-smb.el: Add tramp-autoload cookie for initialisation
+       code of `tramp-default-method-alist' and `tramp-default-user-alist'.
+
 2010-12-29  Karl Fogel  <kfogel@red-bean.com>
 
        * saveplace.el (save-place-alist-to-file): Save list sorted and

diff --git a/lisp/net/tramp-ftp.el b/lisp/net/tramp-ftp.el
index a0db0199412e5b288a87e78e7a886992c8b3af98..b6a3cffa21182d8494924301a1b633516059288a 100644 (file)
--- a/lisp/net/tramp-ftp.el
+++ b/lisp/net/tramp-ftp.el
@@ -105,13 +105,13 @@ present for backward compatibility."
 ;; ... and add it to the method list.
 ;;;###tramp-autoload
 (unless (featurep 'xemacs)
-  (add-to-list 'tramp-methods (cons tramp-ftp-method nil)))
+  (add-to-list 'tramp-methods (cons tramp-ftp-method nil))
 
-;; Add some defaults for `tramp-default-method-alist'.
-(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))
+  ;; Add some defaults for `tramp-default-method-alist'.
+  (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)))
 
 ;; Add completion function for FTP method.
 (tramp-set-completion-function

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index a87b58a42c236be1a6cf31e0ffd179c1ba9c7941..0fb14657f94298ac5efbb7531b5bd153ab548dd0 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -124,6 +124,7 @@
 
 ;; Add a default for `tramp-default-user-alist'.  Rule: For the SYNCE
 ;; method, no user is chosen.
+;;;###tramp-autoload
 (add-to-list 'tramp-default-user-alist '("\\`synce\\'" nil nil))
 
 (defcustom tramp-gvfs-zeroconf-domain "local"

diff --git a/lisp/net/tramp-gw.el b/lisp/net/tramp-gw.el
index 0fac3935d730075be799b6d1a87c2ea174c03cef..543e4277d06a2a5fe26e7a7fc5e6e240eefc48cf 100644 (file)
--- a/lisp/net/tramp-gw.el
+++ b/lisp/net/tramp-gw.el
@@ -72,6 +72,7 @@
   (list "Default server" "socks" tramp-gw-default-socks-port 5))
 
 ;; Add a default for `tramp-default-user-alist'.  Default is the local user.
+;;;###tramp-autoload
 (add-to-list
  'tramp-default-user-alist
  (list (concat "\\`"

diff --git a/lisp/net/tramp-imap.el b/lisp/net/tramp-imap.el
index d71583bcd85f764d94cfeb2f36f05f3197a998a0..e4490019531f551ab1937f65087819eca1f0c79d 100644 (file)
--- a/lisp/net/tramp-imap.el
+++ b/lisp/net/tramp-imap.el
@@ -96,6 +96,7 @@
               (list tramp-imaps-method '(tramp-default-port 993))))
 
 ;; Add a default for `tramp-default-user-alist'.  Default is the local user.
+;;;###tramp-autoload
 (add-to-list
  'tramp-default-user-alist
  (list (concat "\\`"

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index d5fa4eb76e86a516bab2773818517a8f8b2f2d49..86948bbc69bc68a9b184c56341e81024e68764c1 100644 (file)
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -380,13 +380,16 @@ detected as prompt when being sent on echoing hosts, therefore.")
     (tramp-copy-args            (("%k" "-p")))
     (tramp-copy-keep-date       t)))
 
+;;;###tramp-autoload
 (add-to-list 'tramp-default-method-alist
             `(,tramp-local-host-regexp "\\`root\\'" "su"))
 
+;;;###tramp-autoload
 (add-to-list 'tramp-default-user-alist
             `(,(concat "\\`" (regexp-opt '("su" "sudo" "ksu")) "\\'")
               nil "root"))
 ;; Do not add "ssh" based methods, otherwise ~/.ssh/config would be ignored.
+;;;###tramp-autoload
 (add-to-list 'tramp-default-user-alist
             `(,(concat
                 "\\`"

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index b54bbf1fa5625ad59cd8561518b7c8e9ed6a6fb4..0c1a1f8dcf44a3703fa850acd8de3b7ea1f25d6a 100644 (file)
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -43,11 +43,13 @@
 
 ;; Add a default for `tramp-default-method-alist'. Rule: If there is
 ;; a domain in USER, it must be the SMB method.
+;;;###tramp-autoload
 (add-to-list 'tramp-default-method-alist
             `(nil ,tramp-prefix-domain-regexp ,tramp-smb-method))
 
 ;; Add a default for `tramp-default-user-alist'. Rule: For the SMB method,
 ;; the anonymous user is chosen.
+;;;###tramp-autoload
 (add-to-list 'tramp-default-user-alist
             `(,(concat "\\`" tramp-smb-method "\\'") nil nil))
 

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 79f184efc254efece93a0276d8870b0fcb55759c..c198d9e082d5e3062027568984b6bbf0158065b7 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -318,6 +318,7 @@ Also see `tramp-default-method-alist'."
   :group 'tramp
   :type 'string)
 
+;;;###tramp-autoload
 (defcustom tramp-default-method-alist nil
   "*Default method to use for specific host/user pairs.
 This is an alist of items (HOST USER METHOD).  The first matching item
@@ -344,6 +345,7 @@ This variable is regarded as obsolete, and will be removed soon."
   :group 'tramp
   :type '(choice (const nil) string))
 
+;;;###tramp-autoload
 (defcustom tramp-default-user-alist nil
   "*Default user to use for specific method/host pairs.
 This is an alist of items (METHOD HOST USER).  The first matching item
@@ -384,6 +386,7 @@ interpreted as a regular expression which always matches."
                       (choice :tag "User regexp" regexp sexp)
                       (choice :tag " Proxy name" string (const nil)))))
 
+;;;###tramp-autoload
 (defconst tramp-local-host-regexp
   (concat
    "\\`"
@@ -666,9 +669,11 @@ Derived from `tramp-postfix-method-format'.")
 (defconst tramp-user-regexp "[^:/ \t]+"
   "*Regexp matching user names.")
 
+;;;###tramp-autoload
 (defconst tramp-prefix-domain-format "%"
   "*String matching delimeter between user and domain names.")
 
+;;;###tramp-autoload
 (defconst tramp-prefix-domain-regexp
   (regexp-quote tramp-prefix-domain-format)
   "*Regexp matching delimeter between user and domain names.