diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2010-05-14 18:46:11 -0500 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2010-05-14 18:46:11 -0500 |
| commit | 78ed0efce4b9a55b2c6ed47742bfc33588627df2 (patch) | |
| tree | 3cd18f9943aef5d9802025aeaf3874d39cc33ee5 /lisp/calc/calc-bin.el | |
| parent | 5ccaa35996841a6b28de93e346f57a3ff7f6f640 (diff) | |
| download | emacs-78ed0efce4b9a55b2c6ed47742bfc33588627df2.tar.gz | |
calc-bin.el (math-format-twos-complement): Group digits when appropriate.
Diffstat (limited to 'lisp/calc/calc-bin.el')
| -rw-r--r-- | lisp/calc/calc-bin.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el index 0e31fbe681c..4ab698ea640 100644 --- a/lisp/calc/calc-bin.el +++ b/lisp/calc/calc-bin.el @@ -845,6 +845,8 @@ the size of a Calc bignum digit.") (len (length num))) (if (< len digs) (setq num (concat (make-string (- digs len) ?0) num)))) + (when calc-group-digits + (setq num (math-group-float num))) (concat (number-to-string calc-number-radix) "##" |