(calc-arithmetic-menu): Add item for `calc-symclip'.

(calc-modes-menu): Add item for twos complement.

diff --git a/lisp/calc/calc-menu.el b/lisp/calc/calc-menu.el
index 3012a6026869fd9c2b2412ad61b6a1192fd72f57..21df142ec047228adff4596b93c7257f8e45c63b 100644 (file)
--- a/lisp/calc/calc-menu.el
+++ b/lisp/calc/calc-menu.el
@@ -165,6 +165,13 @@
                :keys "b c"
                :active (>= (calc-stack-size) 1)
                :help "Reduce (1:) modulo 2^wordsize"]
+              ["Clip (1:) to [-2^(w-1),2^(w-1))"
+               (progn
+                 (require 'calc-bin)
+                 (call-interactively 'calc-symclip))
+               :keys "b s"
+               :active (>= (calc-stack-size) 1)
+               :help "Reduce (1:) to [-2^(w-1),2^w)"]
               ["(2:) and (1:)"    
                (progn
                  (require 'calc-bin)
@@ -1133,6 +1140,14 @@
                :keys "d 2"
                :style radio
                :selected (= calc-number-radix 2)]
+              ["Twos complement"
+               (progn
+                 (require 'calc-bin)
+                 (call-interactively 
+                  (lambda () (interactive) (calc-binary-radix t))))
+               :keys "C-u d 2"
+               :style radio
+               :selected calc-complement-signed-mode]
               ["Octal"
                (progn
                  (require 'calc-bin)