From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Sun, 18 Feb 2024 01:48:15 +0000 (+0100)
Subject: Fix pp-emacs-lisp-code printing of symbols
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0590a8b38454d563d294ea199813fdf0d5c8fd2b;p=emacs.git

Fix pp-emacs-lisp-code printing of symbols

* lisp/emacs-lisp/pp.el (pp--insert-lisp): Print symbols
readably (bug#69168).

(cherry picked from commit 9a2ce74c3783c4be8ba70642da374d8e77c6f9ac)
---

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index 1d722051406..944dd750839 100644
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -458,6 +458,8 @@ the bounds of a region containing Lisp code to pretty-print."
     (string
      (let ((print-escape-newlines t))
        (prin1 sexp (current-buffer))))
+    (symbol
+     (prin1 sexp (current-buffer)))
     (otherwise (princ sexp (current-buffer)))))
 
 (defun pp--format-vector (sexp)