branch: externals/url-http-ntlm
commit 8b24c978ecc35f083550f145838f2e8dd9e07e58
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@iro.umontreal.ca>
url-http-ntlm.el: Silence compiler warnings
* url-http-ntlm.el (url-http-ntlm--clean-headers)
(url-http-ntlm--get-stage): Avoid deprecated `cl-declare`.
---
url-http-ntlm.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/url-http-ntlm.el b/url-http-ntlm.el
index 6a09a0ec61..6993843218 100644
--- a/url-http-ntlm.el
+++ b/url-http-ntlm.el
@@ -151,7 +151,7 @@ request to the host in URL's server slot."
(defun url-http-ntlm--clean-headers ()
"Remove Authorization element from `url-http-extra-headers' alist."
- (cl-declare (special url-http-extra-headers))
+ (defvar url-http-extra-headers)
(setq url-http-extra-headers
(url-http-ntlm--rmssoc "Authorization" url-http-extra-headers)))
@@ -160,7 +160,7 @@ request to the host in URL's server slot."
ARGS comes from `url-ntlm-auth''s caller,
`url-get-authentication'. Its meaning depends on the current
implementation -- this function is well and truly coupled."
- (cl-declare (special url-http-extra-headers))
+ (defvar url-http-extra-headers)
(let* ((response-rxp "^NTLM TlRMTVNTUAADAAA")
(challenge-rxp "^TLRMTVNTUAACAAA")
(auth-header (assoc "Authorization" url-http-extra-headers))
