calc-aent.el

calc-do-quick-calc: Add base 2 to the list of outputs of integers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e543d87efdcae22e0dea5ad4d5c118437280db1..5ec2a41c997dd0b7fb7992f3849be3d706f1ce47 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-14  Chris Hecker  <checker@d6.com> (tiny change)
+
+       * calc/calc-aent.el (calc-do-quick-calc): Add binary
+       representation of integers to the list of outputs.
+
 2007-08-14  Glenn Morris  <rgm@gnu.org>
 
        * simple.el (bad-packages-alist): New constant.

diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el
index e640eb5c438abbb414f275b79fa7dbfa29721549..ffd07bd8f2efc96546003f62b4efd426e44a60b9 100644 (file)
--- a/lisp/calc/calc-aent.el
+++ b/lisp/calc/calc-aent.el
@@ -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))