procyberian/emacs
2
0
Fork 0
Code Issues1 Pull requests Projects Releases Packages Wiki Activity Actions

Further fixes for package-quickstart-refresh printing

Browse source 
* lisp/emacs-lisp/package.el (package-quickstart-refresh): Really
ensure that the structures aren't shortened (bug#49924).
This commit is contained in:
Lars Ingebrigtsen 2021-08-09 14:47:01 +02:00
parent e5b2e5356f
commit fbd3207bb2
1 changed files with 5 additions and 3 deletions

8
lisp/emacs-lisp/package.el
View file

@ -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)