diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-06-17 16:59:55 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-06-17 16:59:55 +0100 |
| commit | d6dd70b064898424d322e9717702d490a3e28247 (patch) | |
| tree | d00d2dcec439b573a377b59e49cea3bf02cd6fd4 /lisp/emacs-lisp | |
| parent | 02617f15075177cd5a390dd13bd3fc6b49e08fad (diff) | |
| download | emacs-d6dd70b064898424d322e9717702d490a3e28247.tar.gz emacs-d6dd70b064898424d322e9717702d490a3e28247.tar.bz2 emacs-d6dd70b064898424d322e9717702d490a3e28247.zip | |
* lisp/emacs-lisp/package.el (package--with-work-buffer-async):
Fix error reporting.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | 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 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" |