summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/bytecomp.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1993-08-11 06:39:21 +0000
committerRichard M. Stallman <rms@gnu.org>1993-08-11 06:39:21 +0000
commitb0787891e72dd0bf94863e5ca196578c124739f7 (patch)
tree1ec1b8021c09998ad67e53a38693ab8ec96a14a0 /lisp/emacs-lisp/bytecomp.el
parentaa7ea8bd6e695ec6ea47f9c47b0d86190874a1dc (diff)
downloademacs-b0787891e72dd0bf94863e5ca196578c124739f7.tar.gz
(byte-compile-from-buffer): Set float-output-format to
nil, not "%.20e", since nil is guaranteed to not lose info on output.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
-rw-r--r--lisp/emacs-lisp/bytecomp.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 19efb5db085..d2b9659a708 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1249,7 +1249,7 @@ With argument, insert value in current buffer after the form."
;; buffer --> output-buffer, or buffer --> eval form, return nil
(let (outbuffer)
(let (;; Prevent truncation of flonums and lists as we read and print them
- (float-output-format "%.20e")
+ (float-output-format nil)
(case-fold-search nil)
(print-length nil)
;; Simulate entry to byte-compile-top-level