aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorJay Belanger <[email protected]>2007-08-14 14:52:51 +0000
committerJay Belanger <[email protected]>2007-08-14 14:52:51 +0000
commit8f26ce7300d7c8478a6c493097031230ffbbe38c (patch)
treef66f5728fbb2f1b69a1b9c36a886dc7bc0b65636 /lisp
parent1c02bcdc705c4209678508717b7e8feee9ea9caa (diff)
calc-aent.el
calc-do-quick-calc: Add base 2 to the list of outputs of integers.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/calc/calc-aent.el3
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1e543d87ef..5ec2a41c99 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-14 Chris Hecker <[email protected]> (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 <[email protected]>
* simple.el (bad-packages-alist): New constant.
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el
index e640eb5c43..ffd07bd8f2 100644
--- 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))