diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-09 14:47:01 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-09 14:47:05 +0200 |
commit | fbd3207bb2d73eacda336d48d7b0509f9ebcbb1c (patch) | |
tree | 2eda3a037cc8048bbb9713098ca60256e438d314 /lisp/emacs-lisp | |
parent | e5b2e5356f78e70fbb3dbfdb2abff17bb84efc2d (diff) |
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).
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/package.el | 8 |
1 files 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) |