From 50a982d673ca5cf448b16e119472ddd2441b6f0f Mon Sep 17 00:00:00 2001
From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 20 Nov 2009 00:55:53 +0000
Subject: [PATCH] (math-format-twos-complement): Renamed from
 math-format-complement-signed. (calc-radix): Rename
 `calc-complement-signed-mode' to `calc-twos-complement-mode'.
 (calc-octal-radix, calc-hex-radix): Add an argument for two's complement.

---
 lisp/calc/calc-bin.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el
index 9751fd5d018..a011b06c28a 100644
--- a/lisp/calc/calc-bin.el
+++ b/lisp/calc/calc-bin.el
@@ -159,7 +159,7 @@ the size of a Calc bignum digit.")
    (calc-do-refresh)
    (calc-refresh-evaltos)
    (if (< n 0)
-       (message "Binary word size is %d bits (2's complement)" (- n))
+       (message "Binary word size is %d bits (two's complement)" (- n))
      (message "Binary word size is %d bits" n))))
 
 
@@ -174,13 +174,13 @@ the size of a Calc bignum digit.")
    (if (and (>= n 2) (<= n 36))
        (progn
 	 (calc-change-mode 
-          (list 'calc-number-radix 'calc-complement-signed-mode)
-          (list n (and (= n 2) arg)) t)
+          (list 'calc-number-radix 'calc-twos-complement-mode)
+          (list n (and (or (= n 2) (= n 8) (= n 16)) arg)) t)
 	 ;; also change global value so minibuffer sees it
 	 (setq-default calc-number-radix calc-number-radix))
      (setq n calc-number-radix))
-   (if calc-complement-signed-mode
-       (message "Number radix is %d, complement signed mode is on." n)
+   (if calc-twos-complement-mode
+       (message "Number radix is %d, two's complement mode is on." n)
      (message "Number radix is %d" n))))
 
 (defun calc-decimal-radix ()
@@ -191,13 +191,13 @@ the size of a Calc bignum digit.")
   (interactive "P")
   (calc-radix 2 arg))
 
-(defun calc-octal-radix ()
-  (interactive)
-  (calc-radix 8))
+(defun calc-octal-radix (&optional arg)
+  (interactive "P")
+  (calc-radix 8 arg))
 
-(defun calc-hex-radix ()
-  (interactive)
-  (calc-radix 16))
+(defun calc-hex-radix (&optional arg)
+  (interactive "P")
+  (calc-radix 16 arg))
 
 (defun calc-leading-zeros (n)
   (interactive "P")
@@ -820,9 +820,9 @@ the size of a Calc bignum digit.")
 						       calc-number-radix))))))
 			       math-radix-float-cache))))))))
 
-;;; Complement signed mode
+;;; Two's complement mode
 
-(defun math-format-complement-signed (a)
+(defun math-format-twos-complement (a)
   "Format an integer in complement signed mode."
   (let* (;(calc-leading-zeros t)
          (overflow nil)
-- 
2.11.4.GIT