[Emacs-diffs] master d6dd70b: * lisp/emacs-lisp/package.el (package--with-work-buffer-async):

[Artur Malabarba]

branch: master
commit d6dd70b064898424d322e9717702d490a3e28247
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    * lisp/emacs-lisp/package.el (package--with-work-buffer-async):
    
    Fix error reporting.
---
 lisp/emacs-lisp/package.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index eef9ee1..b3f1f2f 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"