[q-lang-cvs] qcalc qcalc.q,1.191,1.192

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv28017

Modified Files:
	qcalc.q 
Log Message:
fix segfault in content_from_editor

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.191
retrieving revision 1.192
diff -C2 -d -r1.191 -r1.192
*** qcalc.q	28 Nov 2007 04:25:37 -0000	1.191
--- qcalc.q	28 Nov 2007 04:38:42 -0000	1.192
***************
*** 1136,1141 ****
  
  content_from_editor IT DATA EDIT
! 		= clear_cell (I,J) || set_cell (I,J) $ qt EDIT "text" ()
! 		    where (I,J) = real_index IT;
  
  /* Some convenience functions for accessing the table. */
--- 1136,1141 ----
  
  content_from_editor IT DATA EDIT
! 		= clean_cell (I,J) || set_cell (I,J) S
! 		    where (I,J) = real_index IT, S = qt EDIT "text" ();
  
  /* Some convenience functions for accessing the table. */