[q-lang-cvs] qcalc qcalc.q,1.142,1.143

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

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

Modified Files:
	qcalc.q 
Log Message:
bugfixes

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.142
retrieving revision 1.143
diff -C2 -d -r1.142 -r1.143
*** qcalc.q	13 Nov 2007 10:52:54 -0000	1.142
--- qcalc.q	13 Nov 2007 11:52:27 -0000	1.143
***************
*** 1428,1432 ****
  		= EDITED := true ||
  		  update_title ||
! 		  move_spans (-1,0) (get_spans SEL) ||
  		  process_sel SEL ||
  		  adjust_rows N ||
--- 1428,1433 ----
  		= EDITED := true ||
  		  update_title ||
! 		  do clear_span SP0 ||
! 		  move_spans (-1,0) SP ||
  		  process_sel SEL ||
  		  adjust_rows N ||
***************
*** 1437,1441 ****
  		      R = map (flip append "".flip (flip sub 0) 1) R,
  		      SEL = map (translate (-1,0)) (cat $ tl SEL)++R,
! 		      CELLS = map (flip (flip sub 0) 1) SEL
  		    where (I,J,SEL) = check_editing || selection_rows,
  		      (_,_;_,_;N,_) = SEL,
--- 1438,1444 ----
  		      R = map (flip append "".flip (flip sub 0) 1) R,
  		      SEL = map (translate (-1,0)) (cat $ tl SEL)++R,
! 		      CELLS = map (flip (flip sub 0) 1) SEL,
! 		      SP = get_spans SEL,
! 		      SP0 = filter ((<=I).fst) SP, SP = filter ((>I).fst) SP
  		    where (I,J,SEL) = check_editing || selection_rows,
  		      (_,_;_,_;N,_) = SEL,
***************
*** 1463,1467 ****
  		= EDITED := true ||
  		  update_title ||
! 		  move_spans (0,-1) (get_spans SEL) ||
  		  process_sel SEL ||
  		  adjust_cols N ||
--- 1466,1471 ----
  		= EDITED := true ||
  		  update_title ||
! 		  do clear_span SP0 ||
! 		  move_spans (0,-1) SP ||
  		  process_sel SEL ||
  		  adjust_cols N ||
***************
*** 1472,1476 ****
  		      R = map (flip append "".flip (flip sub 0) 1) R,
  		      SEL = map (translate (0,-1)) (cat $ tl SEL)++R,
! 		      CELLS = map (flip (flip sub 0) 1) SEL
  		    where (I,J,SEL) = check_editing || selection_cols,
  		      (_,_;_,_;_,N) = SEL,
--- 1476,1482 ----
  		      R = map (flip append "".flip (flip sub 0) 1) R,
  		      SEL = map (translate (0,-1)) (cat $ tl SEL)++R,
! 		      CELLS = map (flip (flip sub 0) 1) SEL,
! 		      SP = get_spans SEL,
! 		      SP0 = filter ((<=J).snd) SP, SP = filter ((>J).snd) SP
  		    where (I,J,SEL) = check_editing || selection_cols,
  		      (_,_;_,_;_,N) = SEL,