Fix prin1 problem in package-quickstart-refresh

* lisp/emacs-lisp/package.el (package-quickstart-refresh): Bind
print-length/print-level before using prin1-to-string (bug#49924).
This commit is contained in:
Lars Ingebrigtsen 2021-08-07 13:02:01 +02:00
parent bc1ffc5f6e
commit e1ce9904aa

View file

@ -4169,7 +4169,9 @@ 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 (prin1-to-string file)))
(pfile (let ((print-length nil)
(print-level nil))
(prin1-to-string file))))
(insert "(let ((load-true-file-name " pfile ")\
(load-file-name " pfile "))\n")
(insert-file-contents file)