paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 10:09:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* create \index entries in the messages.inc for an index of message texts and numbers in the user manual

Browse Source 
git-svn-id: trunk@48517 -
This commit is contained in:
florian 2021-02-06 16:59:02 +00:00
parent b1f7fb4ba1
commit 539a578cce
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/utils/msg2inc.pp
View File

@ -730,6 +730,9 @@ begin
end;
if s[i+k]='_' then
inc(i,k+1);
if number<>'' then
writeln(t,'\index[msgnr]{',number,'}');
writeln(t,'\index[msgtxt]{',escapestring(Copy(s,i,255)),'}');
writeln(t,'\item ['+s1+escapestring(Copy(s,i,255))+'] \hfill \\');
end
else