diff options
| -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 @@ | |||
| 759 | (math-reject-arg n "*Index out of range"))))) | 759 | (math-reject-arg n "*Index out of range"))))) |
| 760 | 760 | ||
| 761 | (defun calcFunc-subscr (mat n &optional m) | 761 | (defun calcFunc-subscr (mat n &optional m) |
| 762 | (if (eq (car-safe mat) 'var) nil) | 762 | (if (eq (car-safe mat) 'var) nil |
| 763 | (setq mat (calcFunc-mrow mat n)) | 763 | (setq mat (calcFunc-mrow mat n)) |
| 764 | (if m | 764 | (if m |
| 765 | (if (math-num-integerp n) | 765 | (if (math-num-integerp n) |
| 766 | (calcFunc-mrow mat m) | 766 | (calcFunc-mrow mat m) |
| 767 | (calcFunc-mcol mat m)) | 767 | (calcFunc-mcol mat m)) |
| 768 | mat)) | 768 | mat))) |
| 769 | 769 | ||
| 770 | ;;; Get the Nth column of a matrix. | 770 | ;;; Get the Nth column of a matrix. |
| 771 | (defun math-mat-col (mat n) | 771 | (defun math-mat-col (mat n) |