Mercurial > emacs

comparison lisp/calc/calc-bin.el @ 44575:52bd3d1b9cb9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert previous change.
author Colin Walters <walters@gnu.org>
date Sun, 14 Apr 2002 05:51:31 +0000
parents 9e404d7dbe1d
children f4d68f97221e
comparison
equal deleted inserted replaced
44574:f9b633c7d323 44575:52bd3d1b9cb9
675 (if (> (length str) afigs) 675 (if (> (length str) afigs)
676 (setq str (substring str 1) 676 (setq str (substring str 1)
677 int (math-add int 1)))) 677 int (math-add int 1))))
678 (setq str (concat (math-format-number int) point str))) 678 (setq str (concat (math-format-number int) point str)))
679 (when calc-group-digits 679 (when calc-group-digits
680 (require 'calc-ext)
681 (setq str (math-group-float str)))) 680 (setq str (math-group-float str))))
682 (setq figs 0)))) 681 (setq figs 0))))
683 (or str 682 (or str
684 (let* ((prec calc-internal-prec) 683 (let* ((prec calc-internal-prec)
685 (afigs (if (> figs 0) 684 (afigs (if (> figs 0)