# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1187102878 0
# Node ID b4a5bc0f94360b1b0fd3796745d8a8933accf4be
# Parent  089a910403cff4f5243b23da17832c13ed802ab6
calc-aent.el
calc-do-quick-calc: Add base 2 to the list of outputs of integers.

diff -r 089a910403cf -r b4a5bc0f9436 lisp/calc/calc-aent.el
--- a/lisp/calc/calc-aent.el	Tue Aug 14 08:48:09 2007 +0000
+++ b/lisp/calc/calc-aent.el	Tue Aug 14 14:47:58 2007 +0000
@@ -74,6 +74,9 @@
 				", "
 				(let ((calc-number-radix 8))
 				  (math-format-value (car alg-exp) 1000))
+                                ", "
+                                (let ((calc-number-radix 2))
+                                  (math-format-value (car alg-exp) 1000))
 				(if (and (integerp (car alg-exp))
 					 (> (car alg-exp) 0)
 					 (< (car alg-exp) 127))