From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Wed, 17 Jun 2015 15:59:55 +0000 (+0100)
Subject: * lisp/emacs-lisp/package.el (package--with-work-buffer-async):
X-Git-Tag: emacs-25.0.90~1719
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6dd70b064898424d322e9717702d490a3e28247;p=emacs.git

* lisp/emacs-lisp/package.el (package--with-work-buffer-async):

Fix error reporting.
---

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index eef9ee10ecf..b3f1f2fc759 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1136,10 +1136,10 @@ For a description of the other arguments see
        (condition-case error-signal
            (url-retrieve (concat ,location-1 ,file-1)
                          (lambda (status)
-                           (if (eq (car status) :error)
+                           (if-let ((er (plist-get status :error)))
                                (progn (if (functionp ,async-1)
                                           (funcall ,async-1))
-                                      (signal (cdar status) (cddr status)))
+                                      (signal (car er) (cdr er)))
                              (goto-char (point-min))
                              (unless (search-forward "\n\n" nil 'noerror)
                                (error "Invalid url response in buffer %s"