diff options
Diffstat (limited to 'lisp/calc/calc-bin.el')
| -rw-r--r-- | lisp/calc/calc-bin.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el index dcf0245d93e..3cd5b7af30c 100644 --- a/lisp/calc/calc-bin.el +++ b/lisp/calc/calc-bin.el @@ -175,7 +175,7 @@ the size of a Calc bignum digit.") (progn (calc-change-mode (list 'calc-number-radix 'calc-twos-complement-mode) - (list n (and (or (= n 2) (= n 8) (= n 16)) arg)) t) + (list n (or arg (calc-is-option))) t) ;; also change global value so minibuffer sees it (setq-default calc-number-radix calc-number-radix)) (setq n calc-number-radix)) @@ -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) "##" |