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

Bind print-escape-newlines.

1 files changed, 6 insertions, 5 deletions

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)