(autoload-print-form): Use print-quoted.
This commit is contained in:
parent
1bc99c9c78
commit
9d8563ca18
2 changed files with 6 additions and 0 deletions
|
@ -209,6 +209,7 @@ put the output in."
|
|||
(setcdr p nil)
|
||||
(princ "\n(" outbuf)
|
||||
(let ((print-escape-newlines t)
|
||||
(print-quoted t)
|
||||
(print-escape-nonascii t))
|
||||
(dolist (elt form)
|
||||
(prin1 elt outbuf)
|
||||
|
@ -232,6 +233,7 @@ put the output in."
|
|||
outbuf))
|
||||
(terpri outbuf)))
|
||||
(let ((print-escape-newlines t)
|
||||
(print-quoted t)
|
||||
(print-escape-nonascii t))
|
||||
(print form outbuf)))))))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue