Mercurial > emacs

changeset 39818:6564021e098e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calculator-eng-display): Don't call concat with an integer argument.
author Gerd Moellmann <gerd@gnu.org>
date Fri, 12 Oct 2001 09:05:29 +0000
parents 503b25e023a5
children dd4e185b0265
files lisp/calculator.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calculator.el	Fri Oct 12 08:29:44 2001 +0000
+++ b/lisp/calculator.el	Fri Oct 12 09:05:29 2001 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Eli Barzilay <eli@barzilay.org>
 ;; Keywords: tools, convenience
-;; Time-stamp: <2001-09-23 02:24:35 eli>
+;; Time-stamp: <2001-10-11 16:18:29 eli>
 
 ;; This file is part of GNU Emacs.
 
@@ -988,7 +988,9 @@
                       (setq num (/ num 1000.0)) (setq exp (+ exp 3))
                       (setq i (1+ i)))))))
       (or calculator-eng-tmp-show (setq calculator-eng-extra nil))
-      (let ((str (format (concat "%." calculator-number-digits "f")
+      (let ((str (format (concat "%." (number-to-string
+                                       calculator-number-digits)
+                                 "f")
                          num)))
         (concat (let ((calculator-remove-zeros
                        ;; make sure we don't leave integers