Thomas Zander
49761da6e6
While on it: - Pet portlint PR: 206840 Submitted by: bbtruk@users.sourceforge.net (maintainer) MFH: 2016Q1
19 lines
780 B
ObjectPascal
19 lines
780 B
ObjectPascal
--- src/dmhelpmanager.pas.orig 2016-01-13 13:34:47 UTC
|
|
+++ src/dmhelpmanager.pas
|
|
@@ -106,12 +106,12 @@ begin
|
|
else
|
|
begin
|
|
gHelpLang:= ExtractDelimited(2, gPOFileName, ['.']);
|
|
- if not mbDirectoryExists(gpExePath + 'doc' + PathDelim + gHelpLang) then
|
|
+ if not mbDirectoryExists(gpDocsDir + PathDelim + gHelpLang) then
|
|
gHelpLang:= 'en';
|
|
end;
|
|
|
|
- if mbDirectoryExists(gpExePath + 'doc' + PathDelim + gHelpLang) then
|
|
- HTMLHelpDatabase.BaseURL:= 'file://' + gpExePath + 'doc' + PathDelim + gHelpLang
|
|
+ if mbDirectoryExists(gpDocsDir + PathDelim + gHelpLang) then
|
|
+ HTMLHelpDatabase.BaseURL:= 'file://' + gpDocsDir + PathDelim + gHelpLang
|
|
else begin
|
|
HTMLHelpDatabase.BaseURL:= 'http://doublecmd.github.io/doc/' + gHelpLang;
|
|
end;
|