diff options
| author | Jim Blandy | 1993-07-18 06:18:45 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-07-18 06:18:45 +0000 |
| commit | 42106ea5491ec03fe4b6afcea4dc7e3c03aafff4 (patch) | |
| tree | f4dd1a42efc43fda21d360c02adcc8667026a9b3 | |
| parent | 8a30241de33ee92f343ee7726869b5a5fc6f688f (diff) | |
| download | emacs-42106ea5491ec03fe4b6afcea4dc7e3c03aafff4.tar.gz emacs-42106ea5491ec03fe4b6afcea4dc7e3c03aafff4.zip | |
* bytecomp.el (byte-compile-from-buffer): Bind float-output-format
to "%.20e", not "%20e"; the latter is always ignored, since it
doesn't have a decimal point after the percent sign.
| -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 |