(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 8c184070be3dcc8cdba68ca3c836d3be369094a1..7e6be4c6c99f09d3cab7b37b32e15a3d0a15b9ba 100644 (file)
--- 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)