Re: pp-to-string, defun and "()"

[Andreas Schwab]

yzhh <address@hidden> writes:

> The following code is intended for produce the string of a defun, 
> (pp-to-string
>            `(defun recorded-commands ()
>               "Commands recorded during the last 'recording commands' cycle."
>               (interactive)
>               ,@(reclisp-post-process reclisp-recorded-commands)))
>
> It produces 
> (defun recorded-commands nil "Commands recorded during the last 'recording
> commands' cycle."
>   (interactive)
> ...
>
> The "()" is translated to "nil" which does not look good, and the doc string
> is put in the same line place. Any suggesting?

The pretty printer is very simple.  It treats this list like every other
list and does not try to infer any meaning on it.

Andreas.

-- 
Andreas Schwab, SuSE Labs, address@hidden
SuSE Linux Products GmbH, Maxfeldstraße 5, 90409 Nürnberg, Germany
PGP key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."