From 96c867c76ea2038529cbfdb1fce406f509f033fe Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 12 Oct 2001 09:04:39 +0000 Subject: [PATCH] (calculator-eng-display): Don't call concat with an integer argument. --- lisp/ChangeLog | 5 +++++ lisp/calculator.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 62b550bcf5c..02ba44284be 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-10-12 Eli Barzilay + + * calculator.el (calculator-eng-display): Don't call concat + with an integer argument. + 2001-10-10 Gerd Moellmann * international/iso-transl.el (iso-transl-e-caret) diff --git a/lisp/calculator.el b/lisp/calculator.el index b0ca5b4f449..fc8f211e4b9 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -4,7 +4,7 @@ ;; Author: Eli Barzilay ;; 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 -- 2.39.2