From: Artur Malabarba Date: Tue, 8 Dec 2015 12:49:20 +0000 (+0000) Subject: * lisp/emacs-lisp/package.el (package--with-response-buffer): X-Git-Tag: emacs-25.0.90~510 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1ad5311683dc84bf2cb023ea7d3043084452cc3;p=emacs.git * lisp/emacs-lisp/package.el (package--with-response-buffer): Search for the blank-line in the right buffer. --- 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)))))))