From: Jim Blandy <jimb@redhat.com>
Date: Sun, 18 Jul 1993 06:18:45 +0000 (+0000)
Subject: * bytecomp.el (byte-compile-from-buffer): Bind float-output-format
X-Git-Tag: emacs-19.34~11722
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42106ea5491ec03fe4b6afcea4dc7e3c03aafff4;p=emacs.git

* 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.
---

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."
   ;; 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 "%.20e")
 	  (case-fold-search nil)
 	  (print-length nil)
 	  ;; Simulate entry to byte-compile-top-level