From fbd3207bb2d73eacda336d48d7b0509f9ebcbb1c Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 9 Aug 2021 14:47:01 +0200 Subject: [PATCH] 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 dfd2148aa6b..82ea9e73658 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) -- 2.39.5