diff options
| author | Artur Malabarba | 2015-11-18 10:28:02 +0000 |
|---|---|---|
| committer | Artur Malabarba | 2015-11-18 10:28:33 +0000 |
| commit | 2e6d7d1e3408168545d5afd33ae8dd5a2881a22c (patch) | |
| tree | 7655a131bfe98449209389639294d87923367223 | |
| parent | 35d490fd324ded65f9859c16552240a14ac4e15b (diff) | |
| download | emacs-2e6d7d1e3408168545d5afd33ae8dd5a2881a22c.tar.gz emacs-2e6d7d1e3408168545d5afd33ae8dd5a2881a22c.zip | |
* lisp/emacs-lisp/package.el (package--with-response-buffer):
Ensure we're at the start of the buffer before searching for
the end of headers.
| -rw-r--r-- | lisp/emacs-lisp/package.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 2aea9d11d1f..d747bc226a7 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -1165,6 +1165,7 @@ BODY (does not apply to errors signaled by ERROR-FORM). | |||
| 1165 | (unwind-protect (wrap-errors | 1165 | (unwind-protect (wrap-errors |
| 1166 | (when-let ((er (plist-get status :error))) | 1166 | (when-let ((er (plist-get status :error))) |
| 1167 | (error "Error retrieving: %s %S" url er)) | 1167 | (error "Error retrieving: %s %S" url er)) |
| 1168 | (goto-char (point-min)) | ||
| 1168 | (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror) | 1169 | (unless (search-forward-regexp "^\r?\n\r?" nil 'noerror) |
| 1169 | (error "Error retrieving: %s %S" url "incomprehensible buffer")) | 1170 | (error "Error retrieving: %s %S" url "incomprehensible buffer")) |
| 1170 | (with-temp-buffer | 1171 | (with-temp-buffer |