# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1258678588 0
# Node ID 18198cdc91fa77c49ac94557722fe1a72d6da2f3
# Parent  0e720bab47c63b684a1330bb5b3fccbea3ac3fac
(math-compose-expr): Let `calc-twos-complement-mode' be nil.

diff -r 0e720bab47c6 -r 18198cdc91fa lisp/calc/calccomp.el
--- a/lisp/calc/calccomp.el	Fri Nov 20 00:55:53 2009 +0000
+++ b/lisp/calc/calccomp.el	Fri Nov 20 00:56:28 2009 +0000
@@ -377,7 +377,8 @@
 		(list 'horiz "(" (math-compose-expr (nth 1 a) 0) ")")
 	      (math-compose-expr (nth 1 a) 201))
 	    (let ((calc-language 'flat)
-		  (calc-number-radix 10))
+		  (calc-number-radix 10)
+                  (calc-twos-complement-mode nil))
 	      (math-compose-expr (nth 2 a) 0))))
      ((and (eq (car a) '/)
 	   (eq calc-language 'big))