# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1258678827 0
# Node ID cfc4f2fef78c7d0f1e0fdadbc81412c42658d4a8
# Parent  ba9f3a2508e30a8fe3fb787151209969ed96ac46
(calcFunc-vunpack): Let `calc-twos-complement-mode' be nil.

diff -r ba9f3a2508e3 -r cfc4f2fef78c lisp/calc/calc-vec.el
--- a/lisp/calc/calc-vec.el	Fri Nov 20 00:59:50 2009 +0000
+++ b/lisp/calc/calc-vec.el	Fri Nov 20 01:00:27 2009 +0000
@@ -1338,6 +1338,7 @@
   (if w (setq a (math-clip a w)))
   (if (math-messy-integerp a) (setq a (math-trunc a)))
   (let* ((calc-number-radix 2)
+         (calc-twos-complement-mode nil)
 	 (neg (math-negp a))
 	 (aa (if neg (math-sub -1 a) a))
 	 (str (if (eq aa 0)