Don't let pp fall back to prin1 for conses

* lisp/emacs-lisp/pp.el (pp--insert-lisp): Don't `prin1' non-list
conses; use our pp function for cons and list printing
`pp--format-list' instead.
This commit is contained in:
Michael Heerdegen 2024-05-26 16:31:26 +02:00
parent 3580dc155c
commit 804f36d5ab

View file

@ -491,7 +491,7 @@ the bounds of a region containing Lisp code to pretty-print."
(pp--insert-lisp (cadr sexp)))
(pp--format-list sexp))))
(t
(prin1 sexp (current-buffer)))))
(pp--format-list sexp))))
;; Print some of the smaller integers as characters, perhaps?
(integer
(if (<= ?0 sexp ?z)