master fbd3207: Further fixes for package-quickstart-refresh printing

[Lars Ingebrigtsen]

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)