# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743294275 0
# Node ID ccb1fb62bba6bc1fecdaca987fec6577d3c6384c
# Parent  7c9552ef98fa2866050b77ba2379601a42b2efb9
(generate-file-autoloads): Bind float-output-format.
Bind print-escape-newlines.

diff -r 7c9552ef98fa -r ccb1fb62bba6 lisp/emacs-lisp/autoload.el
--- a/lisp/emacs-lisp/autoload.el	Wed Jul 21 22:33:37 1993 +0000
+++ b/lisp/emacs-lisp/autoload.el	Wed Jul 21 22:37:55 1993 +0000
@@ -109,7 +109,7 @@
 			 (substring name 0 (match-beginning 0))
 		       name)))
 	(print-length nil)
-	(floating-output-format "%20e")
+	(float-output-format "%.20e")
 	(done-any nil)
 	(visited (get-file-buffer file))
 	output-end)
@@ -167,10 +167,11 @@
 				     (elt (cdr p)))
 				(setcdr p nil)
 				(princ "\n(" outbuf)
-				(mapcar (function (lambda (elt)
-						    (prin1 elt outbuf)
-						    (princ " " outbuf)))
-					autoload)
+				(let ((print-escape-newlines t))
+				  (mapcar (function (lambda (elt)
+						      (prin1 elt outbuf)
+						      (princ " " outbuf)))
+					  autoload))
 				(princ "\"\\\n" outbuf)
 				(princ (substring
 					(prin1-to-string (car elt)) 1)