Mercurial > hg > octave-lyh

changeset 8120:8f0150a0d19e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix blkdiag to not rely on Matlab-incompatible behaviour
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 18 Sep 2008 21:54:00 +0200
parents acfd80c08d60
children 061febbf23ad
files scripts/ChangeLog scripts/general/blkdiag.m
diffstat 2 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -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.
--- 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