diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2009-11-20 01:00:27 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2009-11-20 01:00:27 +0000 |
| commit | e6e9cfbdc43bdddbcbf7c68c7e69d9dee296abb8 (patch) | |
| tree | 4890d8d0215bc04a7e59a68035ec6ba25f42c3bb /lisp/calc/calc-vec.el | |
| parent | 7b999abb579f681b9edcb6f3e6a559df1cc2dbbe (diff) | |
| download | emacs-e6e9cfbdc43bdddbcbf7c68c7e69d9dee296abb8.tar.gz | |
(calcFunc-vunpack): Let `calc-twos-complement-mode' be nil.
Diffstat (limited to 'lisp/calc/calc-vec.el')
| -rw-r--r-- | lisp/calc/calc-vec.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/calc/calc-vec.el b/lisp/calc/calc-vec.el index 3d0dd2ab3bd..170070e41a0 100644 --- a/lisp/calc/calc-vec.el +++ b/lisp/calc/calc-vec.el @@ -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) |