[Emacs-diffs] /srv/bzr/emacs/trunk r100286: calc-bin.el (math-format-twos-complement): Group digits when appropriate.

[Jay Belanger]

------------------------------------------------------------
revno: 100286
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Fri 2010-05-14 18:46:11 -0500
message:
  calc-bin.el (math-format-twos-complement): Group digits when appropriate.
modified:
  lisp/ChangeLog
  lisp/calc/calc-bin.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-05-14 21:21:12 +0000
+++ b/lisp/ChangeLog    2010-05-14 23:46:11 +0000
@@ -1,3 +1,8 @@
+2010-05-14  Jay Belanger  <address@hidden>
+
+       * calc-bin.el (math-format-twos-complement): Group digits when
+       appropriate.
+
 2010-05-14  Stefan Monnier  <address@hidden>
 
        * progmodes/sh-script.el (sh-mode-default-syntax-table): Remove.

=== modified file 'lisp/calc/calc-bin.el'
--- a/lisp/calc/calc-bin.el     2010-04-18 04:13:09 +0000
+++ b/lisp/calc/calc-bin.el     2010-05-14 23:46:11 +0000
@@ -845,6 +845,8 @@
            (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)
      "##"