(autoload-print-form): Use print-quoted.

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)))))))