From a1ad5311683dc84bf2cb023ea7d3043084452cc3 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Tue, 8 Dec 2015 12:49:20 +0000 Subject: [PATCH] * 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 file 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))))))) -- 2.39.2