From bccb3abef7d627cfa1c5170cb0d30d0450284ec3 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 4 Aug 2022 17:46:14 +0200 Subject: [PATCH] Suppress compilation warnings in netrc.el * lisp/obsolete/netrc.el (netrc-machine-user-or-password) (netrc-credentials): Suppress some warnings. --- lisp/obsolete/netrc.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/obsolete/netrc.el b/lisp/obsolete/netrc.el index 9d3ae315141..f664a77a9b1 100644 --- a/lisp/obsolete/netrc.el +++ b/lisp/obsolete/netrc.el @@ -164,7 +164,8 @@ default ports DEFAULTS to `netrc-machine'. MODE can be \"login\" or \"password\", suitable for passing to `netrc-get'." (let ((authinfo-list (if (stringp authinfo-file-or-list) - (netrc-parse authinfo-file-or-list) + (with-suppressed-warnings ((obsolete netrc-parse)) + (netrc-parse authinfo-file-or-list)) authinfo-file-or-list)) (ports (or ports '(nil))) (defaults (or defaults '(nil))) @@ -227,7 +228,8 @@ MODE can be \"login\" or \"password\", suitable for passing to "Return a user name/password pair. Port specifications will be prioritized in the order they are listed in the PORTS list." - (let ((list (netrc-parse)) + (let ((list (with-suppressed-warnings ((obsolete netrc-parse)) + (netrc-parse))) found) (if (not ports) (setq found (netrc-machine list machine)) -- 2.39.2