diff options
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 1bf05c83168..b67be5ce60c 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -1244,7 +1244,7 @@ With argument, insert value in current buffer after the form." | |||
| 1244 | ;; buffer --> output-buffer, or buffer --> eval form, return nil | 1244 | ;; buffer --> output-buffer, or buffer --> eval form, return nil |
| 1245 | (let (outbuffer) | 1245 | (let (outbuffer) |
| 1246 | (let (;; Prevent truncation of flonums and lists as we read and print them | 1246 | (let (;; Prevent truncation of flonums and lists as we read and print them |
| 1247 | (float-output-format "%20e") | 1247 | (float-output-format "%.20e") |
| 1248 | (case-fold-search nil) | 1248 | (case-fold-search nil) |
| 1249 | (print-length nil) | 1249 | (print-length nil) |
| 1250 | ;; Simulate entry to byte-compile-top-level | 1250 | ;; Simulate entry to byte-compile-top-level |