From 78ed0efce4b9a55b2c6ed47742bfc33588627df2 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Fri, 14 May 2010 18:46:11 -0500 Subject: [PATCH] calc-bin.el (math-format-twos-complement): Group digits when appropriate. --- lisp/ChangeLog | 5 +++++ lisp/calc/calc-bin.el | 2 ++ 2 files changed, 7 insertions(+) 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 + + * calc-bin.el (math-format-twos-complement): Group digits when + appropriate. + 2010-05-14 Stefan Monnier * 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) "##" -- 2.39.5