Mercurial > emacs

changeset 4215:ccb1fb62bba6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(generate-file-autoloads): Bind float-output-format. Bind print-escape-newlines.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Jul 1993 22:37:55 +0000
parents 7c9552ef98fa
children 6f940dcec978
files lisp/emacs-lisp/autoload.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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)