From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Jul 1993 22:37:55 +0000 (+0000)
Subject: (generate-file-autoloads): Bind float-output-format.
X-Git-Tag: emacs-19.34~11636
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a933d4b4f74489062056245cf18872dfd8dc540;p=emacs.git

(generate-file-autoloads): Bind float-output-format.
Bind print-escape-newlines.
---

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 8c184070be3..7e6be4c6c99 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -109,7 +109,7 @@ are used."
 			 (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 @@ are used."
 				     (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)