mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Fix print-length issue in comp-run-async-workers

Browse source 
* lisp/emacs-lisp/comp.el (comp-run-async-workers): Bind
print-length/print-level to ensure there's no truncation (bug#49922).
This commit is contained in:
Lars Ingebrigtsen 2021-08-07 12:59:22 +02:00
parent 6a3920c07e
commit bc1ffc5f6e
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/comp.el
View file

@ -3936,7 +3936,9 @@ display a message."
(concat "emacs-async-comp-"
(file-name-base source-file) "-")
nil ".el"))
(expr-strings (mapcar #'prin1-to-string expr))
(expr-strings (let ((print-length nil)
(print-level nil))
(mapcar #'prin1-to-string expr)))
(_ (progn
(with-temp-file temp-file
(mapc #'insert expr-strings))