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.
This commit is contained in:
parent
3580dc155c
commit
804f36d5ab
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue