procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/package.el: Fix free variable warnings.

Browse source 
(package--with-response-buffer): Replace two usages of
`macroexp-let2*' with `let'.
This commit is contained in:
Artur Malabarba 2016-05-18 20:09:24 -03:00
parent 6e7129551c
commit ebc3a94e27
1 changed files with 37 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/package.el
View file

@ -1154,9 +1154,9 @@ errors signaled by ERROR-FORM or by BODY).
(while (keywordp (car body)) (while (keywordp (car body))
(setq body (cdr (cdr body)))) (setq body (cdr (cdr body))))
(macroexp-let2* nil ((url-1 url) (macroexp-let2* nil ((url-1 url)
(url-sym (make-symbol "url"))
(b-sym (make-symbol "b-sym"))
(noerror-1 noerror)) (noerror-1 noerror))
(let ((url-sym (make-symbol "url"))
(b-sym (make-symbol "b-sym")))
`(cl-macrolet ((unless-error (body-2 &rest before-body) `(cl-macrolet ((unless-error (body-2 &rest before-body)
(let ((err (make-symbol "err"))) (let ((err (make-symbol "err")))
`(with-temp-buffer `(with-temp-buffer
@ -1191,7 +1191,7 @@ errors signaled by ERROR-FORM or by BODY).
(let ((url (expand-file-name ,file ,url-1))) (let ((url (expand-file-name ,file ,url-1)))
(unless (file-name-absolute-p url) (unless (file-name-absolute-p url)
(error "Location %s is not a url nor an absolute file name" url)) (error "Location %s is not a url nor an absolute file name" url))
(insert-file-contents url))))))) (insert-file-contents url))))))))
(define-error 'bad-signature "Failed to verify signature") (define-error 'bad-signature "Failed to verify signature")