[Emacs-diffs] emacs/lisp/calc calc-menu.el

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      09/11/16 00:07:07

Modified files:
        lisp/calc      : calc-menu.el 

Log message:
        (calc-arithmetic-menu): Add item for `calc-symclip'.
        (calc-modes-menu): Add item for twos complement.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc-menu.el?cvsroot=emacs&r1=1.14&r2=1.15

Patches:
Index: calc-menu.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-menu.el,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- calc-menu.el        5 Jan 2009 03:20:06 -0000       1.14
+++ calc-menu.el        16 Nov 2009 00:07:07 -0000      1.15
@@ -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)