[Emacs-diffs] /srv/bzr/emacs/trunk r103433: Adjust previous change to behave as intended.

[Jay Belanger]

------------------------------------------------------------
revno: 103433
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Sat 2011-02-26 19:55:29 -0600
message:
  Adjust previous change to behave as intended.
modified:
  lisp/calc/calc-vec.el

=== modified file 'lisp/calc/calc-vec.el'
--- a/lisp/calc/calc-vec.el     2011-02-27 01:33:37 +0000
+++ b/lisp/calc/calc-vec.el     2011-02-27 01:55:29 +0000
@@ -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)