[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master bccb3abef7: Suppress compilation warnings in netrc.el
From: |
Lars Ingebrigtsen |
Subject: |
master bccb3abef7: Suppress compilation warnings in netrc.el |
Date: |
Thu, 4 Aug 2022 11:46:28 -0400 (EDT) |
branch: master
commit bccb3abef7d627cfa1c5170cb0d30d0450284ec3
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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 9d3ae31514..f664a77a9b 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master bccb3abef7: Suppress compilation warnings in netrc.el,
Lars Ingebrigtsen <=