|
From: Jos v.d.V. <jo...@us...> - 2013-02-20 22:10:17
|
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 ; ! |