diff options
| author | Michael Heerdegen <michael_heerdegen@web.de> | 2024-05-26 16:31:26 +0200 |
|---|---|---|
| committer | Michael Heerdegen <michael_heerdegen@web.de> | 2024-05-27 19:51:39 +0200 |
| commit | 804f36d5abdbc38a4664a341aaea563195f79b03 (patch) | |
| tree | 7668461375e06b0f922fd2b171ee8e7b35076001 /lisp/emacs-lisp | |
| parent | 3580dc155c3c9f48fb1b7855b4d858eec3948dfb (diff) | |
| download | emacs-804f36d5abdbc38a4664a341aaea563195f79b03.tar.gz emacs-804f36d5abdbc38a4664a341aaea563195f79b03.tar.bz2 emacs-804f36d5abdbc38a4664a341aaea563195f79b03.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index 3176ee42533..e550bd4d689 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -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) |