paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LazEdit: TEditor.GuessFileTypeFromString: fix xml detection

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2469 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart 2012-06-30 09:35:13 +00:00
parent 494cf3af6e
commit e503d1b77f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
applications/lazedit/editorpagecontrol.pp
View File

@ -359,7 +359,7 @@ begin
if (Pos(Shebang,S) = 1) and ((Pos('/bin/bash',S) > 0) or (Pos('/bin/sh',S) > 0)) then Result := eftUnixShell
else if (Pos(Shebang,S) = 1) and (Pos('/perl',S) > 0) then Result := eftPerl
else if Pos('<!DOCTYPE HTML',UpperCase(S)) = 1 then Result := eftHtml
else if Pos('<?XML VERSION',S) = 1 then Result := eftXml
else if Pos('<?XML VERSION',UpperCase(S)) = 1 then Result := eftXml
else if Pos('#INCLUDE <',UpperCase(S)) = 1 then Result := eftC
{
else if Pos('',S) = 0 then Result := eft