diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-13 05:35:43 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-13 05:35:43 +0000 |
| commit | 9d8563ca18083c01f91aab6a2c84bcffbbbaf49e (patch) | |
| tree | d127726087ee41020eaa091a48116ff9e3a24187 /lisp/emacs-lisp/autoload.el | |
| parent | 1bc99c9c789039e19c3f31b2807b58cf6588283a (diff) | |
| download | emacs-9d8563ca18083c01f91aab6a2c84bcffbbbaf49e.tar.gz | |
(autoload-print-form): Use print-quoted.
Diffstat (limited to 'lisp/emacs-lisp/autoload.el')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 5eb9b8ce621..14877e1b18f 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -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))))))) |