[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 35f3056: * lisp/emacs-lisp/package.el (package-inst
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 35f3056: * lisp/emacs-lisp/package.el (package-install-from-archive): Fix last change |
Date: |
Fri, 24 May 2019 12:26:44 -0400 (EDT) |
branch: master
commit 35f305652c9eacb2e75fa6bcd784247d4de939fb
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/emacs-lisp/package.el (package-install-from-archive): Fix last change
Don't place the unibyte content of of the downloaded file into
a multibyte buffer.
---
lisp/emacs-lisp/package.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 6b92916..670831d 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1913,9 +1913,12 @@ if all the in-between dependencies are also in
PACKAGE-LIST."
;; This function will be called after signature checking.
(lambda (&optional good-sigs)
;; Signature checked, unpack now.
- (with-temp-buffer (insert content)
- (let ((save-silently t))
- (package-unpack pkg-desc)))
+ (with-temp-buffer ;FIXME: Just use the previous current-buffer.
+ (set-buffer-multibyte nil)
+ (cl-assert (not (multibyte-string-p content)))
+ (insert content)
+ (let ((save-silently t))
+ (package-unpack pkg-desc)))
;; Here the package has been installed successfully, mark it as
;; signed if appropriate.
(when good-sigs
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 35f3056: * lisp/emacs-lisp/package.el (package-install-from-archive): Fix last change,
Stefan Monnier <=