# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1221767640 -7200
# Node ID 8f0150a0d19ecbef7b0df1c4ce1a411d95854277
# Parent  acfd80c08d607e62198777cb1c84712f971375f0
fix blkdiag to not rely on Matlab-incompatible behaviour

diff -r acfd80c08d60 -r 8f0150a0d19e scripts/ChangeLog
--- a/scripts/ChangeLog	Thu Sep 18 16:58:27 2008 -0400
+++ b/scripts/ChangeLog	Thu Sep 18 21:54:00 2008 +0200
@@ -1,3 +1,7 @@
+2008-09-18  Jaroslav Hajek <highegg@gmail.com>
+
+	* general/blkdiag.m: Skip assignment if rhs is empty.
+
 2008-09-18  Kris Thielemans  <kris.thielemans@csc.mrc.ac.uk>
 
 	* image/imshow.m: Fix for display_range.
diff -r acfd80c08d60 -r 8f0150a0d19e scripts/general/blkdiag.m
--- a/scripts/general/blkdiag.m	Thu Sep 18 16:58:27 2008 -0400
+++ b/scripts/general/blkdiag.m	Thu Sep 18 21:54:00 2008 +0200
@@ -49,7 +49,10 @@
   retval = zeros (csz(end,:));
 
   for p = 1:nargin
-    retval((csz(p,1)+1):csz(p+1,1),(csz(p,2)+1):csz(p+1,2)) = varargin{p};
+    vp = varargin{p};
+    if (! isempty (vp))
+      retval((csz(p,1)+1):csz(p+1,1),(csz(p,2)+1):csz(p+1,2)) = vp;
+    endif
   endfor
 
 endfunction