paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 11:00:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@45924 -
This commit is contained in:
mattias 2014-07-19 07:45:11 +00:00
parent 1df8ac1f8d
commit 9b158e4a05
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/helpfpcmessages.pas
View File

@ -1098,8 +1098,7 @@ begin
end; end;
Result:=TrimFilename(Result); Result:=TrimFilename(Result);
if not FilenameIsAbsolute(Result) then begin if not FilenameIsAbsolute(Result) then begin
LazDir:='$(LazarusDir)'; LazDir:=EnvironmentOptions.GetParsedLazarusDirectory;
IDEMacros.SubstituteMacros(LazDir);
Result:=TrimFilename(AppendPathDelim(LazDir)+Result); Result:=TrimFilename(AppendPathDelim(LazDir)+Result);
end; end;
end; end;