Use auth-source in tramp-parse-netrc

* lisp/auth-source.el (auth-source-netrc-parse-all): Autoload.

* lisp/net/tramp.el (tramp-parse-netrc): Don't use netrc-parse,
because it's going to be made obsolete (bug#56976).

diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 48f9517683dcf8e507c0720f06c7de1171052283..f198362f1066cad7ebbe2c81a8c540e61f027f7c 100644 (file)
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -909,6 +909,7 @@ Remove trailing \": \"."
 (defun auth-source--aget (alist key)
   (cdr (assoc key alist)))
 
+;;;###autoload
 (defun auth-source-netrc-parse-all (file)
   "Parse FILE and return all entries."
   (auth-source-netrc-parse :file file :allow-null t))

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index aac63882ced915d01a1b6a37cd51b9bfe30df2d1..0446e5754ae3f6b77dbf79c85dfe5aa2c948cf76 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3342,12 +3342,11 @@ Host is always \"localhost\"."
 User may be nil."
   ;; The declaration is not sufficient at runtime, because netrc.el is
   ;; not autoloaded.
-  (autoload 'netrc-parse "netrc")
   (mapcar
    (lambda (item)
      (and (assoc "machine" item)
          `(,(cdr (assoc "login" item)) ,(cdr (assoc "machine" item)))))
-   (netrc-parse filename)))
+   (auth-source-netrc-parse-all filename)))
 
 (defun tramp-parse-putty (registry-or-dirname)
   "Return a list of (user host) tuples allowed to access.