[Win32forth-cvs] win32forth/apps/WinEd Ed_Search.F,1.3,1.4

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/WinEd
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv18061

Modified Files:
	Ed_Search.F 
Log Message:
Jos Also adapted the duplicate +trailing

Index: Ed_Search.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Search.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Ed_Search.F	5 May 2005 09:43:28 -0000	1.3
--- Ed_Search.F	20 Feb 2013 22:10:15 -0000	1.4
***************
*** 4,8 ****
  \ Created: Sunday, January 30 2005 - 16:45 aws
  \
! \ 
  
  : never         ( flag - false ) drop false ;
--- 4,8 ----
  \ Created: Sunday, January 30 2005 - 16:45 aws
  \
! \
  
  : never         ( flag - false ) drop false ;
***************
*** 241,250 ****
  
  : +trailing ( adr count char - adr2 count2 )
!     -rot dup>r over + swap dup>r
!         ?do   i c@ over <>
!                 if   i leave
!                 then
!         loop
!      nip r> -dup - r> swap -
   ;
  
--- 241,253 ----
  
  : +trailing ( adr count char - adr2 count2 )
!     over 0>
!        if   -rot dup>r over + swap dup>r
!                  ?do   i c@ over <>
!                        if   i leave
!                        then
!                  loop
!              nip r> -dup - r> swap -
!        else  drop
!        then
   ;
  
***************
*** 678,681 ****
                  THEN
          THEN
!         SetFocus: DocWindow ; 
!