diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-21 22:37:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-21 22:37:55 +0000 |
| commit | 0a933d4b4f74489062056245cf18872dfd8dc540 (patch) | |
| tree | 7436900f1c836b843b55e16735a51b238c4513bf /lisp/emacs-lisp | |
| parent | 1110dff34196a2a6fbd85a8339722dc78a7d5a7c (diff) | |
| download | emacs-0a933d4b4f74489062056245cf18872dfd8dc540.tar.gz emacs-0a933d4b4f74489062056245cf18872dfd8dc540.tar.bz2 emacs-0a933d4b4f74489062056245cf18872dfd8dc540.zip | |
(generate-file-autoloads): Bind float-output-format.
Bind print-escape-newlines.
Diffstat (limited to 'lisp/emacs-lisp')
| -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) |