diff options
| author | Michael Heerdegen <michael_heerdegen@web.de> | 2024-05-12 19:55:30 +0200 |
|---|---|---|
| committer | Michael Heerdegen <michael_heerdegen@web.de> | 2024-05-26 14:17:21 +0200 |
| commit | 34fc71c004b6e0ae787de4889eca2d1e413103f2 (patch) | |
| tree | 038d53f864b732139fae51505b05d1fcb1a9be0f /lisp/emacs-lisp | |
| parent | 3ea451042a34a44da94176f27ea354e6823e68ee (diff) | |
| download | emacs-34fc71c004b6e0ae787de4889eca2d1e413103f2.tar.gz emacs-34fc71c004b6e0ae787de4889eca2d1e413103f2.tar.bz2 emacs-34fc71c004b6e0ae787de4889eca2d1e413103f2.zip | |
Further tweak pp code printing
This fixes an aspect of Bug#70868.
* lisp/emacs-lisp/pp.el (pp--insert-lisp): Print characters with
`prin1-char'. In all other cases consistently print with `prin1'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index f89807c37be..d578e685ca9 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -495,15 +495,12 @@ the bounds of a region containing Lisp code to pretty-print." ;; 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)))) + (princ (prin1-char sexp) (current-buffer)) + (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 "[") |