mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 23:10:47 -08:00
Code Issues Projects Releases Wiki Activity

Fix prin1 problem in package-quickstart-refresh

Browse source 
* 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
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/package.el
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). ;; Prefer uncompiled files (and don't accept .so files).
(let ((load-suffixes '(".el" ".elc"))) (let ((load-suffixes '(".el" ".elc")))
(locate-library (package--autoloads-file-name pkg)))) (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 ")\ (insert "(let ((load-true-file-name " pfile ")\
(load-file-name " pfile "))\n") (load-file-name " pfile "))\n")
(insert-file-contents file) (insert-file-contents file)