(calculator-eng-display): Don't call concat

with an integer argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 62b550bcf5c28190cd1158f2dcf2ee0cc09a8ebf..02ba44284be88a2ebf8d0ef818d90a33c48d4640 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-12  Eli Barzilay <eli@barzilay.org>
+
+       * calculator.el (calculator-eng-display): Don't call concat
+       with an integer argument.
+
 2001-10-10  Gerd Moellmann  <gerd@gnu.org>
 
        * international/iso-transl.el (iso-transl-e-caret)

diff --git a/lisp/calculator.el b/lisp/calculator.el
index b0ca5b4f449852b131fc27c2b998b977924ae2ec..fc8f211e4b911f6d0f3d8a8492dae0ca03a3134b 100644 (file)
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -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 @@ the 'left or 'right when one of the standard modes is used."
                       (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