bug#70868: 30.0.50; pp--insert-lisp prints small integers as characters

[Michael Heerdegen]

Hello,

I guess Mattias is the right one to CC for this problem.

> > $ emacs -q --batch --eval '(pp-emacs-lisp-code `(:comments 59))'
> > Error: scan-error ("Unbalanced parentheses" 1 16)
> >  forward-sexp-default-function(1)
> >  forward-sexp(1)
> >  indent-sexp()
> >  pp-emacs-lisp-code((:comments 59))
> >  eval((pp-emacs-lisp-code `(:comments 59)) t)
> >  command-line-1(("--eval" "(pp-emacs-lisp-code `(:comments   59))"))
> >  command-line()
> >  normal-top-level()
> > Scan error: "Unbalanced parentheses", 1, 16
>
> A good catch!  59 is the character ;.  This is a bug in the printer:
>
> #+begin_src emacs-lisp
> (let ((print-integers-as-characters t))
>    (princ ?\; (current-buffer)))
> #+end_src
>
> prints "?;" instead of "?\;" - it fails to quote the character.  Binding
> `print-quoted' doesn't help.  This needs to be fixed.


Michael.