From 3024833e9557e2400a83f0e71b474c35d927260d Mon Sep 17 00:00:00 2001 From: Michael Heerdegen Date: Sun, 12 May 2024 19:55:30 +0200 Subject: [PATCH 1/2] * lisp/emacs-lisp/pp.el (pp--insert-lisp): Always print with prin1 This fixes an aspect of Bug#70868. --- lisp/emacs-lisp/pp.el | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index 47805d3dbde..f24b0d55520 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -494,16 +494,12 @@ pp--insert-lisp (prin1 sexp (current-buffer))))) ;; Print some of the smaller integers as characters, perhaps? (integer - (if (<= ?0 sexp ?z) - (let ((print-integers-as-characters t)) - (princ sexp (current-buffer))) - (princ sexp (current-buffer)))) + (let ((print-integers-as-characters (<= ?0 sexp ?z))) + (prin1 sexp (current-buffer)))) (string (let ((print-escape-newlines t)) (prin1 sexp (current-buffer)))) - (symbol - (prin1 sexp (current-buffer))) - (otherwise (princ sexp (current-buffer))))) + (otherwise (prin1 sexp (current-buffer))))) (defun pp--format-vector (sexp) (insert "[") -- 2.39.2