[q-lang-cvs] qcalc qcalc.q,1.135,1.136

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

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

Modified Files:
	qcalc.q 
Log Message:
bugfixes

Index: qcalc.q
===================================================================
RCS file: /cvsroot/q-lang/qcalc/qcalc.q,v
retrieving revision 1.135
retrieving revision 1.136
diff -C2 -d -r1.135 -r1.136
*** qcalc.q	12 Nov 2007 20:25:33 -0000	1.135
--- qcalc.q	12 Nov 2007 21:06:43 -0000	1.136
***************
*** 1401,1405 ****
  		      SEL = R++map (translate (1,0)) (cat SEL),
  		      CELLS = map (flip (flip sub 0) 1) SEL
! 		    if not any (is_spanned.flip (flip sub 0) 1) SEL
  		    where (I,J,SEL) = check_editing || selection_rows,
  		      (_,_;_,_;N,_) = SEL,
--- 1401,1405 ----
  		      SEL = R++map (translate (1,0)) (cat SEL),
  		      CELLS = map (flip (flip sub 0) 1) SEL
! 		    if not any (is_spanned.flip (flip sub 0) 1) (cat SEL)
  		    where (I,J,SEL) = check_editing || selection_rows,
  		      (_,_;_,_;N,_) = SEL,
***************
*** 1417,1421 ****
  		      SEL = map (translate (-1,0)) (cat $ tl SEL)++R,
  		      CELLS = map (flip (flip sub 0) 1) SEL
! 		    if not any (is_spanned.flip (flip sub 0) 1) SEL
  		    where (I,J,SEL) = check_editing || selection_rows,
  		      (_,_;_,_;N,_) = SEL,
--- 1417,1421 ----
  		      SEL = map (translate (-1,0)) (cat $ tl SEL)++R,
  		      CELLS = map (flip (flip sub 0) 1) SEL
! 		    if not any (is_spanned.flip (flip sub 0) 1) (cat SEL)
  		    where (I,J,SEL) = check_editing || selection_rows,
  		      (_,_;_,_;N,_) = SEL,
***************
*** 1433,1437 ****
  		      SEL = R++map (translate (0,1)) (cat SEL),
  		      CELLS = map (flip (flip sub 0) 1) SEL
! 		    if not any (is_spanned.flip (flip sub 0) 1) SEL
  		    where (I,J,SEL) = check_editing || selection_cols,
  		      (_,_;_,_;_,N) = SEL,
--- 1433,1437 ----
  		      SEL = R++map (translate (0,1)) (cat SEL),
  		      CELLS = map (flip (flip sub 0) 1) SEL
! 		    if not any (is_spanned.flip (flip sub 0) 1) (cat SEL)
  		    where (I,J,SEL) = check_editing || selection_cols,
  		      (_,_;_,_;_,N) = SEL,
***************
*** 1449,1453 ****
  		      SEL = map (translate (0,-1)) (cat $ tl SEL)++R,
  		      CELLS = map (flip (flip sub 0) 1) SEL
! 		    if not any (is_spanned.flip (flip sub 0) 1) SEL
  		    where (I,J,SEL) = check_editing || selection_cols,
  		      (_,_;_,_;_,N) = SEL,
--- 1449,1453 ----
  		      SEL = map (translate (0,-1)) (cat $ tl SEL)++R,
  		      CELLS = map (flip (flip sub 0) 1) SEL
! 		    if not any (is_spanned.flip (flip sub 0) 1) (cat SEL)
  		    where (I,J,SEL) = check_editing || selection_cols,
  		      (_,_;_,_;_,N) = SEL,