diff options
Diffstat (limited to 'lisp/emacs-lisp/autoload.el')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 11 |
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) |