From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 13 Aug 2007 05:35:43 +0000 (+0000)
Subject: (autoload-print-form): Use print-quoted.
X-Git-Tag: emacs-pretest-23.0.90~11524
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d8563ca18083c01f91aab6a2c84bcffbbbaf49e;p=emacs.git

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

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