calc-bin.el (math-format-twos-complement): Group digits when appropriate.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2c7deece59e720f12801c8898ecddbd5eac698f..a32d261b9e73d0364108ca700778b3543af3fc1f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-14  Jay Belanger  <jay.p.belanger@gmail.com>
+
+       * calc-bin.el (math-format-twos-complement): Group digits when
+       appropriate.
+
 2010-05-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/sh-script.el (sh-mode-default-syntax-table): Remove.

diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el
index 0e31fbe681cdedfe2ed570695577f044d7d475de..4ab698ea64069acb1896c29ca5d0746bd0cf4348 100644 (file)
--- 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)
      "##"