diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2011-02-26 19:55:29 -0600 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2011-02-26 19:55:29 -0600 |
| commit | 53f963cf73d93a7d1dca07d4c338acd5b6c8cb2f (patch) | |
| tree | d644b48bf189ff681fb86b29e6af1c2845b19549 /lisp/calc | |
| parent | b49df7426b4647433b2309c4f320133e4ce37009 (diff) | |
| download | emacs-53f963cf73d93a7d1dca07d4c338acd5b6c8cb2f.tar.gz emacs-53f963cf73d93a7d1dca07d4c338acd5b6c8cb2f.tar.bz2 emacs-53f963cf73d93a7d1dca07d4c338acd5b6c8cb2f.zip | |
Adjust previous change to behave as intended.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-vec.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/calc/calc-vec.el b/lisp/calc/calc-vec.el index 401a4f516c6..47ef3241b3e 100644 --- a/lisp/calc/calc-vec.el +++ b/lisp/calc/calc-vec.el @@ -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) - (setq mat (calcFunc-mrow mat n)) - (if m - (if (math-num-integerp n) - (calcFunc-mrow mat m) - (calcFunc-mcol mat m)) - mat)) + (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))) ;;; Get the Nth column of a matrix. (defun math-mat-col (mat n) |