From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 14 May 2010 23:46:11 +0000 (-0500)
Subject: calc-bin.el (math-format-twos-complement): Group digits when appropriate.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~208^2~68
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=78ed0efce4b9a55b2c6ed47742bfc33588627df2;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a2c7deece59..a32d261b9e7 100644
--- 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 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)
      "##"