# HG changeset patch
# User Jaroslav Hajek <address@hidden>
# Date 1221767640 -7200
# Node ID 474d12df07f04a6472d534873090b9f4cf9a9b9b
# Parent  287a159bd4b96f5fd50f6c3893a555dad1343f8b
fix blkdiag to not rely on Matlab-incompatible behaviour

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -0,0 +1,4 @@
+2008-09-18  Jaroslav Hajek <address@hidden>
+
+	* general/blkdiag.m: Skip assignment if rhs is empty.
+
diff --git a/scripts/general/blkdiag.m b/scripts/general/blkdiag.m
--- a/scripts/general/blkdiag.m
+++ b/scripts/general/blkdiag.m
@@ -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