Mercurial > emacs

comparison lisp/calc/calc-vec.el @ 106146:cfc4f2fef78c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calcFunc-vunpack): Let `calc-twos-complement-mode' be nil.
author Jay Belanger <jay.p.belanger@gmail.com>
date Fri, 20 Nov 2009 01:00:27 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
106145:ba9f3a2508e3 106146:cfc4f2fef78c
1336 (defun calcFunc-vunpack (a &optional w) 1336 (defun calcFunc-vunpack (a &optional w)
1337 (or (math-num-integerp a) (math-reject-arg a 'integerp)) 1337 (or (math-num-integerp a) (math-reject-arg a 'integerp))
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)
1344 "" 1345 ""
1345 (if (consp aa) 1346 (if (consp aa)