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 | |
| parent | 1bc99c9c789039e19c3f31b2807b58cf6588283a (diff) | |
| download | emacs-9d8563ca18083c01f91aab6a2c84bcffbbbaf49e.tar.gz | |
(autoload-print-form): Use print-quoted.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3104d7110de..ebfb0fc3792 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2007-08-13 Stefan Monnier <monnier@iro.umontreal.ca> + + * emacs-lisp/autoload.el (autoload-print-form): Use print-quoted. + 2007-08-12 Richard Stallman <rms@gnu.org> * progmodes/sh-script.el (sh): Delete group `unix'. 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))))))) |