]> code.delx.au - gnu-emacs/commitdiff
* lisp/emacs-lisp/package.el: Fix free variable warnings.
authorArtur Malabarba <bruce.connor.am@gmail.com>
Wed, 18 May 2016 23:09:24 +0000 (20:09 -0300)
committerArtur Malabarba <bruce.connor.am@gmail.com>
Wed, 18 May 2016 23:09:24 +0000 (20:09 -0300)
(package--with-response-buffer): Replace two usages of
`macroexp-let2*' with `let'.

lisp/emacs-lisp/package.el

index aa18c2d30bc0a7fe679aa6c153ca120a9ba19ce3..8f309cb798fef5200fd62ae87e446654afc70621 100644 (file)
@@ -1154,44 +1154,44 @@ errors signaled by ERROR-FORM or by BODY).
   (while (keywordp (car body))
     (setq body (cdr (cdr body))))
   (macroexp-let2* nil ((url-1 url)
-                       (url-sym (make-symbol "url"))
-                       (b-sym (make-symbol "b-sym"))
                        (noerror-1 noerror))
-    `(cl-macrolet ((unless-error (body-2 &rest before-body)
-                                 (let ((err (make-symbol "err")))
-                                   `(with-temp-buffer
-                                      (when (condition-case ,err
-                                                (progn ,@before-body t)
-                                              ,(list 'error ',error-form
-                                                     (list 'unless ',noerror-1
-                                                           `(signal (car ,err) (cdr ,err)))))
-                                        ,@body-2)))))
-       (if (string-match-p "\\`https?:" ,url-1)
-           (let ((,url-sym (concat ,url-1 ,file)))
-             (if ,async
-                 (unless-error nil
-                               (url-retrieve ,url-sym
-                                             (lambda (status)
-                                               (let ((,b-sym (current-buffer)))
-                                                 (require 'url-handlers)
-                                                 (unless-error ,body
-                                                               (when-let ((er (plist-get status :error)))
-                                                                 (error "Error retrieving: %s %S" ,url-sym er))
-                                                               (with-current-buffer ,b-sym
-                                                                 (goto-char (point-min))
-                                                                 (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror)
-                                                                   (error "Error retrieving: %s %S" ,url-sym "incomprehensible buffer")))
-                                                               (url-insert-buffer-contents ,b-sym ,url-sym)
-                                                               (kill-buffer ,b-sym)
-                                                               (goto-char (point-min)))))
-                                             nil
-                                             'silent))
-               (unless-error ,body (url-insert-file-contents ,url-sym))))
-         (unless-error ,body
-                       (let ((url (expand-file-name ,file ,url-1)))
-                         (unless (file-name-absolute-p url)
-                           (error "Location %s is not a url nor an absolute file name" url))
-                         (insert-file-contents url)))))))
+    (let ((url-sym (make-symbol "url"))
+          (b-sym (make-symbol "b-sym")))
+      `(cl-macrolet ((unless-error (body-2 &rest before-body)
+                                   (let ((err (make-symbol "err")))
+                                     `(with-temp-buffer
+                                        (when (condition-case ,err
+                                                  (progn ,@before-body t)
+                                                ,(list 'error ',error-form
+                                                       (list 'unless ',noerror-1
+                                                             `(signal (car ,err) (cdr ,err)))))
+                                          ,@body-2)))))
+         (if (string-match-p "\\`https?:" ,url-1)
+             (let ((,url-sym (concat ,url-1 ,file)))
+               (if ,async
+                   (unless-error nil
+                                 (url-retrieve ,url-sym
+                                               (lambda (status)
+                                                 (let ((,b-sym (current-buffer)))
+                                                   (require 'url-handlers)
+                                                   (unless-error ,body
+                                                                 (when-let ((er (plist-get status :error)))
+                                                                   (error "Error retrieving: %s %S" ,url-sym er))
+                                                                 (with-current-buffer ,b-sym
+                                                                   (goto-char (point-min))
+                                                                   (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror)
+                                                                     (error "Error retrieving: %s %S" ,url-sym "incomprehensible buffer")))
+                                                                 (url-insert-buffer-contents ,b-sym ,url-sym)
+                                                                 (kill-buffer ,b-sym)
+                                                                 (goto-char (point-min)))))
+                                               nil
+                                               'silent))
+                 (unless-error ,body (url-insert-file-contents ,url-sym))))
+           (unless-error ,body
+                         (let ((url (expand-file-name ,file ,url-1)))
+                           (unless (file-name-absolute-p url)
+                             (error "Location %s is not a url nor an absolute file name" url))
+                           (insert-file-contents url))))))))
 
 (define-error 'bad-signature "Failed to verify signature")