Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37039798
en ru br
Репозитории ALT
S:3.2.2-alt4
D:2.2.2-alt1
5.1: 2.2.4-alt4.M50P.1
4.1: 2.2.0-alt3
4.0: 2.2.0-alt2
3.0: 1.0.10-alt1
www.altlinux.org/Changes

Группа :: Разработка/Прочее
Пакет: fpc

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: fpc-auto-add-help-index.patch
Скачать


Automatically add help index from /usr/share/doc/fpc/fpctoc.htx if it exists
diff --git a/fpcbuild/fpcsrc/packages/ide/fpini.pas b/fpcbuild/fpcsrc/ide/fpini.pas
index f911683..0449acc 100644
--- a/fpcbuild/fpcsrc/packages/ide/fpini.pas
+++ b/fpcbuild/fpcsrc/packages/ide/fpini.pas
@@ -455,6 +455,8 @@ begin
     end;
   { Help }
   S:=INIFile^.GetEntry(secHelp,ieHelpFiles,'');
+  if (S='') and (ExistsFile('/usr/share/doc/fpc/fpctoc.htx')) then
+    S:='/usr/share/doc/fpc/fpctoc.htx|Free Pascal Documentation';
   repeat
     P:=Pos(';',S); if P=0 then P:=length(S)+1;
     PS:=copy(S,1,P-1);
@@ -572,6 +574,11 @@ begin
   { Misc }
   ShowReadme:=INIFile^.GetIntEntry(secMisc,ieShowReadme,{integer(ShowReadme)}1)<>0;
   Dispose(INIFile, Done);
+ end
+ else
+ begin
+  if ExistsFile('/usr/share/doc/fpc/fpctoc.htx') then
+    HelpFiles^.Insert(NewStr('/usr/share/doc/fpc/fpctoc.htx|Free Pascal Documentation'));
  end;
   ReadINIFile:=OK;
 end;
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin