Merge from emacs--devo--0

[gnu-emacs] / lisp / emacs-lisp / autoload.el

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index d39b0bd9e4aed14c6c41cf989ee63ec347ece4e8..669c055de263a6e1330650b58ef01b0d6bdd82e7 100644 (file)
--- 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)))))))