diff options
| -rw-r--r-- | lisp/emacs-lisp/package.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 6b929160950..670831d9630 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." | |||
| 1913 | ;; This function will be called after signature checking. | 1913 | ;; This function will be called after signature checking. |
| 1914 | (lambda (&optional good-sigs) | 1914 | (lambda (&optional good-sigs) |
| 1915 | ;; Signature checked, unpack now. | 1915 | ;; Signature checked, unpack now. |
| 1916 | (with-temp-buffer (insert content) | 1916 | (with-temp-buffer ;FIXME: Just use the previous current-buffer. |
| 1917 | (let ((save-silently t)) | 1917 | (set-buffer-multibyte nil) |
| 1918 | (package-unpack pkg-desc))) | 1918 | (cl-assert (not (multibyte-string-p content))) |
| 1919 | (insert content) | ||
| 1920 | (let ((save-silently t)) | ||
| 1921 | (package-unpack pkg-desc))) | ||
| 1919 | ;; Here the package has been installed successfully, mark it as | 1922 | ;; Here the package has been installed successfully, mark it as |
| 1920 | ;; signed if appropriate. | 1923 | ;; signed if appropriate. |
| 1921 | (when good-sigs | 1924 | (when good-sigs |