[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 a1ad531: * lisp/emacs-lisp/package.el (package--w
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] emacs-25 a1ad531: * lisp/emacs-lisp/package.el (package--with-response-buffer): |
Date: |
Tue, 08 Dec 2015 12:49:28 +0000 |
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)))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 a1ad531: * lisp/emacs-lisp/package.el (package--with-response-buffer):,
Artur Malabarba <=