Update of /cvsroot/q-lang/qcalc
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv26137
Modified Files:
qcalc.q
Log Message:
bugfixes
Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.136
retrieving revision 1.137
diff -C2 -d -r1.136 -r1.137
*** qcalc.q 12 Nov 2007 21:06:43 -0000 1.136
--- qcalc.q 13 Nov 2007 03:34:53 -0000 1.137
***************
*** 2633,2636 ****
--- 2633,2638 ----
UNDO_LIST := [(I,J;N,M)|get UNDO_LIST] || REDO_LIST := [];
+ save_undo (I,J) = save_undo [(I,J)];
+
save_undo L:List
= //printf "*** save undo: %s\n" (str L) ||
***************
*** 2640,2643 ****
--- 2642,2648 ----
where L = undo_cellvals L;
+ merge_undo (I,J)
+ = merge_undo [(I,J)];
+
merge_undo L:List
= //printf "*** merge undo: %s ++ %s\n" (str L0,str L) ||
|
