diff options
Diffstat (limited to 'Make.lpr')
-rw-r--r-- | Make.lpr | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -213,7 +213,10 @@ begin '}': dec(Ebene); end; until (result>=length(worin)) or ((copy(worin,result,length(was))=was) and (Ebene=0)); - if ((result=1) or (worin[result-1]<>'\')) and (copy(worin,result,length(was))=was) then exit; + if + ((result=1) or ((worin[result-1]<>'\') and (worin[result-1]<>was))) and + ((result=length(worin)) or (worin[result+1]<>was)) and + (copy(worin,result,length(was))=was) then exit; end; result:=0; end; @@ -283,6 +286,8 @@ begin delete(s,1,1); while unescapedpos(';',s)>0 do s:=copy(s,1,unescapedpos(';',s)-1)+' &&'+copy(s,unescapedpos(';',s)+1,length(s)-unescapedpos(';',s)); + while pos(';;',s)>0 do + delete(s,pos(';;',s),1); NA.Befehle.Add(s); end; if fin then begin |