diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-05-17 12:04:20 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-05-17 12:04:20 +0000 |
commit | 959b38764a86bd784ba36e7b875a51ca73fe82e5 (patch) | |
tree | 710572fa56adc28bb70313bbe0a3af0c74ac1b1f /utils | |
parent | 8af836e568721ce97c34aae7634eb16dbf754bbc (diff) | |
download | fpc-959b38764a86bd784ba36e7b875a51ca73fe82e5.tar.gz |
# revisions: 45398
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/fixes_3_2@45399 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'utils')
-rw-r--r-- | utils/fpdoc/dw_htmlchm.inc | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/utils/fpdoc/dw_htmlchm.inc b/utils/fpdoc/dw_htmlchm.inc index e634bfeb26..b0cd1ca922 100644 --- a/utils/fpdoc/dw_htmlchm.inc +++ b/utils/fpdoc/dw_htmlchm.inc @@ -598,6 +598,11 @@ begin begin //split into filename and prefix ALinkPrefix := Copy(AFilename,i+1,Length(AFilename)); SetLength(AFilename, i-1); + if copy(ALinkPrefix,1,2)='..' then // workaround for project files. + begin + ALinkPrefix := 'ms-its:' + ChangeFileExt(ExtractFileName(AFilename), '.chm') + '::/'; + AFilename := ChangeFileExt(AFilename, '.xct'); + end; end else if ALinkPrefix = '' then begin //synthesize outdir\pgk.xct, ms-its:pkg.chm::/ |