diff options
| author | Jay Belanger | 2009-11-20 01:00:27 +0000 |
|---|---|---|
| committer | Jay Belanger | 2009-11-20 01:00:27 +0000 |
| commit | e6e9cfbdc43bdddbcbf7c68c7e69d9dee296abb8 (patch) | |
| tree | 4890d8d0215bc04a7e59a68035ec6ba25f42c3bb | |
| parent | 7b999abb579f681b9edcb6f3e6a559df1cc2dbbe (diff) | |
| download | emacs-e6e9cfbdc43bdddbcbf7c68c7e69d9dee296abb8.tar.gz emacs-e6e9cfbdc43bdddbcbf7c68c7e69d9dee296abb8.zip | |
(calcFunc-vunpack): Let `calc-twos-complement-mode' be nil.
| -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 @@ | |||
| 1338 | (if w (setq a (math-clip a w))) | 1338 | (if w (setq a (math-clip a w))) |
| 1339 | (if (math-messy-integerp a) (setq a (math-trunc a))) | 1339 | (if (math-messy-integerp a) (setq a (math-trunc a))) |
| 1340 | (let* ((calc-number-radix 2) | 1340 | (let* ((calc-number-radix 2) |
| 1341 | (calc-twos-complement-mode nil) | ||
| 1341 | (neg (math-negp a)) | 1342 | (neg (math-negp a)) |
| 1342 | (aa (if neg (math-sub -1 a) a)) | 1343 | (aa (if neg (math-sub -1 a) a)) |
| 1343 | (str (if (eq aa 0) | 1344 | (str (if (eq aa 0) |