andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adjust previous change to behave as intended.

Browse source
This commit is contained in:
Jay Belanger 2011-02-26 19:55:29 -06:00
parent b49df7426b
commit 53f963cf73
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/calc/calc-vec.el
View file

@ -759,13 +759,13 @@
(math-reject-arg n "*Index out of range")))))
(defun calcFunc-subscr (mat n &optional m)
(if (eq (car-safe mat) 'var) nil)
(if (eq (car-safe mat) 'var) nil
(setq mat (calcFunc-mrow mat n))
(if m
(if (math-num-integerp n)
(calcFunc-mrow mat m)
(calcFunc-mcol mat m))
mat))
mat)))
;;; Get the Nth column of a matrix.
(defun math-mat-col (mat n)