martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Suppress compilation warnings in netrc.el

Browse Source 
* lisp/obsolete/netrc.el (netrc-machine-user-or-password)
(netrc-credentials): Suppress some warnings.
This commit is contained in:
Lars Ingebrigtsen
2022-08-04 17:46:14 +02:00
parent 5d5ab3cacd
commit bccb3abef7
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/obsolete/netrc.el
View File

@@ -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))