branch: elpa/fedi
commit 2ab560cdb128970d969965cbdc9a58ac8fe7a071
Author: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Commit: marty hiatt <martianhiatus [a t] riseup [d o t] net>
req-url to avoid var clashes in macro
---
fedi.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/fedi.el b/fedi.el
index ff98d458bea..bbfb986fce5 100644
--- a/fedi.el
+++ b/fedi.el
@@ -88,7 +88,7 @@ that handles auth by providing info using HEADERS or
AUTH-PARAM."
(let ((req-fun (intern (concat "fedi-http--" method))))
`(defun ,(intern (concat fedi-package-prefix "-" name)) ,args
,docstring
- (let* ((url (fedi-http--api ,endpoint))
+ (let* ((req-url (fedi-http--api ,endpoint))
(url-request-method ,(upcase method))
(url-request-extra-headers ,headers)
(params (if ,auth-param
@@ -98,9 +98,9 @@ that handles auth by providing info using HEADERS or
AUTH-PARAM."
(cond ((or (equal ,method "post")
(equal ,method "put"))
;; FIXME: deal with headers nil arg here:
- (funcall #',req-fun url params nil ,json))
+ (funcall #',req-fun req-url params nil ,json))
(t
- (funcall #',req-fun url params)))))
+ (funcall #',req-fun req-url params)))))
(fedi-http--triage response
(lambda ()
(with-current-buffer response
