[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master fbd3207: Further fixes for package-quickstart-refresh printing
From: |
Lars Ingebrigtsen |
Subject: |
master fbd3207: Further fixes for package-quickstart-refresh printing |
Date: |
Mon, 9 Aug 2021 08:47:10 -0400 (EDT) |
branch: master
commit fbd3207bb2d73eacda336d48d7b0509f9ebcbb1c
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Further fixes for package-quickstart-refresh printing
* lisp/emacs-lisp/package.el (package-quickstart-refresh): Really
ensure that the structures aren't shortened (bug#49924).
---
lisp/emacs-lisp/package.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index dfd2148..82ea9e7 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -4152,6 +4152,10 @@ activations need to be changed, such as when
`package-load-list' is modified."
(package-activated-list ())
;; Make sure we can load this file without load-source-file-function.
(coding-system-for-write 'emacs-internal)
+ ;; Ensure that `pp' and `prin1-to-string' calls further down
+ ;; aren't truncated.
+ (print-length nil)
+ (print-level nil)
(Info-directory-list '("")))
(dolist (elt package-alist)
(condition-case err
@@ -4169,9 +4173,7 @@ activations need to be changed, such as when
`package-load-list' is modified."
;; Prefer uncompiled files (and don't accept .so files).
(let ((load-suffixes '(".el" ".elc")))
(locate-library (package--autoloads-file-name pkg))))
- (pfile (let ((print-length nil)
- (print-level nil))
- (prin1-to-string file))))
+ (pfile (prin1-to-string file)))
(insert "(let ((load-true-file-name " pfile ")\
(load-file-name " pfile "))\n")
(insert-file-contents file)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master fbd3207: Further fixes for package-quickstart-refresh printing,
Lars Ingebrigtsen <=