From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 11 Aug 1993 06:39:21 +0000 (+0000)
Subject: (byte-compile-from-buffer): Set float-output-format to
X-Git-Tag: emacs-19.34~11295
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0787891e72dd0bf94863e5ca196578c124739f7;p=emacs.git

(byte-compile-from-buffer): Set float-output-format to
nil, not "%.20e", since nil is guaranteed to not lose info on output.
---

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