# HG changeset patch
# User Rik <octave@nomad.inbox5.com>
# Date 1326950234 28800
# Node ID b03b15d507d4f0c0842e01b85c01791b7df7a847
# Parent  5a13a75c2457c9b5ec0d103a94700e4bc69bdf0b
accumdim.m: Use common code idiom for finding first non-singleton dimension.

* accumdim.m: Use common code idiom for finding first non-singleton dimension.

diff --git a/scripts/general/accumdim.m b/scripts/general/accumdim.m
--- a/scripts/general/accumdim.m
+++ b/scripts/general/accumdim.m
@@ -83,7 +83,8 @@
   sz = size (vals);
 
   if (nargin < 3)
-    [~, dim] = max (sz != 1); # first non-singleton dim
+    ## Find the first non-singleton dimension.
+    (dim = find (sz > 1, 1)) || (dim = 1);
   elseif (! isindex (dim))
     error ("accumdim: DIM must be a valid dimension");
   elseif (dim > length (sz))