diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-04 17:46:14 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-04 17:46:14 +0200 |
| commit | bccb3abef7d627cfa1c5170cb0d30d0450284ec3 (patch) | |
| tree | 272826cf2ae7323067b904e8f9a13339d58920ed /lisp/obsolete | |
| parent | 5d5ab3cacdaf56210038957873bd74883016e4e5 (diff) | |
| download | emacs-bccb3abef7d627cfa1c5170cb0d30d0450284ec3.tar.gz | |
Suppress compilation warnings in netrc.el
* lisp/obsolete/netrc.el (netrc-machine-user-or-password)
(netrc-credentials): Suppress some warnings.
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/netrc.el | 6 |
1 files 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)) |