(calc-b-prefix-help): Add help for `calc-symclip'.

2 files changed, 33 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6dac08e6c56..e8b4dbea089 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,35 @@
+2009-11-16  Jay Belanger  <jay.p.belanger@gmail.com>
+
+        * calc/calc.el (math-2-word-size, math-half-2-word-size)
+        (calc-complement-signed-mode): New variables.
+        (calc-set-mode-line): Add indicator for twos-complements.
+        (math-format-number): Format twos-complement notation.
+
+        * calc/calc-bin.el (calc-word-size): Reset the variables
+        `math-2-word-size' and `math-half-2-word-size'.
+        (math-format-complement-signed, math-symclip, calcFunc-symclip)
+        (calc-symclip): New functions.
+
+        * calc/calc-aent.el (math-read-token): Read complement signed numbers.
+
+        * calc/calc-embed.el (calc-embedded-mode-vars): Add
+        `calc-complement-signed-mode' to the list of modes.
+
+        * calc/calc-map.el (calc-get-operator): Add `calc-symclip'.
+        (calc-b-oper-keys): Add `calc-symclip' to list.
+
+        * calc/calc-ext.el (math-read-number-fancy): Read complement
+        signed numbers.
+        (calc-init-extensions): Add binding for `calc-symclip'.
+        Add autoload for `calcFunc-symclip' and `calc-symclip'.
+
+        * calc/calc-menu.el (calc-arithmetic-menu): Add item for
+        `calc-symclip'.
+        (calc-modes-menu): Add item for twos complement mode.
+
+        * calc/calc-help.el (calc-b-prefix-help):  Add help for
+        `calc-symclip'.
+
 2009-11-15  Chong Yidong  <cyd@stupidchicken.com>
 
         * register.el (jump-to-register, insert-register): Handle Semantic
diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el
index 78f45755d93..50a7140ad21 100644
--- a/lisp/calc/calc-help.el
+++ b/lisp/calc/calc-help.el
@@ -575,7 +575,7 @@ C-w  Describe how there is no warranty for Calc."
 (defun calc-b-prefix-help ()
   (interactive)
   (calc-do-prefix-help
-   '("And, Or, Xor, Diff, Not; Wordsize, Clip"
+   '("And, Or, Xor, Diff, Not; Wordsize, Clip, Symclip"
      "Lshift, Rshift, roTate; SHIFT + signed Lshift, Rshift"
      "SHIFT + business: Pv, Npv, Fv, pMt, #pmts, raTe, Irr"
      "SHIFT + business: Sln, sYd, Ddb; %ch")