diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-12-08 12:49:20 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-12-08 12:49:20 +0000 |
| commit | a1ad5311683dc84bf2cb023ea7d3043084452cc3 (patch) | |
| tree | e10f55d3d2464e56fe4be1e454fc73ea29fa5d39 /lisp/emacs-lisp | |
| parent | 93f429a324e8b9a37f2646548ef8062c6392e94f (diff) | |
| download | emacs-a1ad5311683dc84bf2cb023ea7d3043084452cc3.tar.gz | |
* lisp/emacs-lisp/package.el (package--with-response-buffer):
Search for the blank-line in the right buffer.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 6da3c1e4bc6..265b1cc5485 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -1160,9 +1160,10 @@ errors signaled by ERROR-FORM or by BODY). (unless-error ,body (when-let ((er (plist-get status :error))) (error "Error retrieving: %s %S" url er)) - (goto-char (point-min)) - (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror) - (error "Error retrieving: %s %S" url "incomprehensible buffer")) + (with-current-buffer b + (goto-char (point-min)) + (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror) + (error "Error retrieving: %s %S" url "incomprehensible buffer"))) (url-insert-buffer-contents b url) (kill-buffer b) (goto-char (point-min))))))) |