From d6dd70b064898424d322e9717702d490a3e28247 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Wed, 17 Jun 2015 16:59:55 +0100 Subject: [PATCH] * lisp/emacs-lisp/package.el (package--with-work-buffer-async): Fix error reporting. --- lisp/emacs-lisp/package.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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" -- 2.39.2