Mercurial > emacs
changeset 108577:e81c7c754bb6
calc-bin.el (math-format-twos-complement): Group digits when appropriate.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Fri, 14 May 2010 18:46:11 -0500 |
| parents | c85c4eac55a6 |
| children | 438f784b2966 |
| files | lisp/ChangeLog lisp/calc/calc-bin.el |
| diffstat | 2 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri May 14 17:21:12 2010 -0400 +++ b/lisp/ChangeLog Fri May 14 18:46:11 2010 -0500 @@ -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.
--- a/lisp/calc/calc-bin.el Fri May 14 17:21:12 2010 -0400 +++ b/lisp/calc/calc-bin.el Fri May 14 18:46:11 2010 -0500 @@ -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) "##"