From 539a578cce5f4e05bf46dc283a0fc96952f22bfa Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 6 Feb 2021 16:59:02 +0000
Subject: [PATCH]   * create \index entries in the messages.inc for an index of
 message texts and numbers in the user manual

git-svn-id: trunk@48517 -
---
 compiler/utils/msg2inc.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/utils/msg2inc.pp b/compiler/utils/msg2inc.pp
index 0af3a52b16..38a7c7f700 100644
--- a/compiler/utils/msg2inc.pp
+++ b/compiler/utils/msg2inc.pp
@@ -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