From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Sun, 26 May 2024 14:31:26 +0000 (+0200)
Subject: Don't let pp fall back to prin1 for conses
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61e644a4aba2b33a58f671e7d9f194ec4bcfa4d0;p=emacs.git

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.

(cherry picked from commit 804f36d5abdbc38a4664a341aaea563195f79b03)
---

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index 0b4a6187e1d..7411e07b978 100644
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -492,7 +492,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)