[Win32forth-cvs] win32forth-extsrc/extsrc/w32fScintilla/src LexForth.cxx,1.1,1.2

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29162/extsrc/w32fScintilla/src

Modified Files:
	LexForth.cxx 
Log Message:
dbu: Fixed a bug in the ForthLexer

Index: LexForth.cxx
===================================================================
RCS file: /cvsroot/win32forth/win32forth-extsrc/extsrc/w32fScintilla/src/LexForth.cxx,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** LexForth.cxx	22 Dec 2004 20:25:58 -0000	1.1
--- LexForth.cxx	23 Jan 2005 16:38:02 -0000	1.2
***************
*** 186,190 ****
  	WordList &user6        = *keywordLists[8];
  
! 	char stringList[] = { ",\" Z\" Z,\" +Z,\" C\" S\" .\" ABORT\" EDITOR\" BROWSE\" SHELL\" DOS\"" };
  	WordList string; string.Set( stringList );
  
--- 186,190 ----
  	WordList &user6        = *keywordLists[8];
  
! 	char stringList[] = { ",\" Z\" Z,\" +Z,\" +Z,\" +Z\", C\" S\" .\" ABORT\" EDITOR\" BROWSE\" SHELL\" DOS\"" };
  	WordList string; string.Set( stringList );
  
***************
*** 285,289 ****
  			if( ch1 == ' ' && ch2 == ':' && is_eol(ch3) )
  			{
! 				if( strcmp( "ABORT\"", buffer ) == 0 || strcmp( ".\"", buffer ) == 0 )
  					bSkipString = true;
  				continue;
--- 285,289 ----
  			if( ch1 == ' ' && ch2 == ':' && is_eol(ch3) )
  			{
! //				if( strcmp( "ABORT\"", buffer ) == 0 || strcmp( ".\"", buffer ) == 0 )
  					bSkipString = true;
  				continue;