[Emacs-diffs] emacs-25 a1ad531: * lisp/emacs-lisp/package.el (package--with-response-buffer):

[Artur Malabarba]

branch: emacs-25
commit a1ad5311683dc84bf2cb023ea7d3043084452cc3
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    * lisp/emacs-lisp/package.el (package--with-response-buffer):
    
    Search for the blank-line in the right buffer.
---
 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 6da3c1e..265b1cc 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)))))))