diff options
| author | Artur Malabarba | 2015-06-17 16:59:55 +0100 |
|---|---|---|
| committer | Artur Malabarba | 2015-06-17 16:59:55 +0100 |
| commit | d6dd70b064898424d322e9717702d490a3e28247 (patch) | |
| tree | d00d2dcec439b573a377b59e49cea3bf02cd6fd4 | |
| parent | 02617f15075177cd5a390dd13bd3fc6b49e08fad (diff) | |
| download | emacs-d6dd70b064898424d322e9717702d490a3e28247.tar.gz emacs-d6dd70b064898424d322e9717702d490a3e28247.zip | |
* lisp/emacs-lisp/package.el (package--with-work-buffer-async):
Fix error reporting.
| -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 | |||
| 1136 | (condition-case error-signal | 1136 | (condition-case error-signal |
| 1137 | (url-retrieve (concat ,location-1 ,file-1) | 1137 | (url-retrieve (concat ,location-1 ,file-1) |
| 1138 | (lambda (status) | 1138 | (lambda (status) |
| 1139 | (if (eq (car status) :error) | 1139 | (if-let ((er (plist-get status :error))) |
| 1140 | (progn (if (functionp ,async-1) | 1140 | (progn (if (functionp ,async-1) |
| 1141 | (funcall ,async-1)) | 1141 | (funcall ,async-1)) |
| 1142 | (signal (cdar status) (cddr status))) | 1142 | (signal (car er) (cdr er))) |
| 1143 | (goto-char (point-min)) | 1143 | (goto-char (point-min)) |
| 1144 | (unless (search-forward "\n\n" nil 'noerror) | 1144 | (unless (search-forward "\n\n" nil 'noerror) |
| 1145 | (error "Invalid url response in buffer %s" | 1145 | (error "Invalid url response in buffer %s" |