# HG changeset patch
# User jwe
# Date 1093451850 0
# Node ID 6af62cc045f715c6ae870a8602e70b75aceb1339
# Parent  954cc2ba6a4968e9e4b1706000e81c419d89decb
[project @ 2004-08-25 16:37:30 by jwe]

diff -r 954cc2ba6a49 -r 6af62cc045f7 src/ChangeLog
--- a/src/ChangeLog	Tue Aug 24 19:32:46 2004 +0000
+++ b/src/ChangeLog	Wed Aug 25 16:37:30 2004 +0000
@@ -1,3 +1,8 @@
+2004-08-25  David Bateman  <dbateman@free.fr>
+
+	* ov-cell.cc (octave_cell::subsasgn): Delete elements of cell array
+	when type is "(" and rhs is empty.
+
 2004-08-09  John W. Eaton  <jwe@octave.org>
 
 	* ov-intx.h (OCTAVE_VALUE_INT_MATRIX_T::index_vector,
diff -r 954cc2ba6a49 -r 6af62cc045f7 src/ov-cell.cc
--- a/src/ov-cell.cc	Tue Aug 24 19:32:46 2004 +0000
+++ b/src/ov-cell.cc	Wed Aug 25 16:37:30 2004 +0000
@@ -201,7 +201,10 @@
 	    if (t_rhs.is_cell ())
 	      octave_base_matrix<Cell>::assign (i, t_rhs.cell_value ());
 	    else
-	      octave_base_matrix<Cell>::assign (i, Cell (t_rhs));
+	      if (t_rhs.is_empty ())
+		octave_base_matrix<Cell>::assign (i, Cell());
+	      else
+		octave_base_matrix<Cell>::assign (i, Cell (t_rhs));
 
 	    retval = octave_value (this, count + 1);
 	  }