瀏覽代碼

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

git-svn-id: trunk@48517 -
florian 4 年之前
父節點
當前提交
539a578cce
共有 1 個文件被更改,包括 3 次插入0 次删除
  1. 3 0
      compiler/utils/msg2inc.pp

+ 3 - 0
compiler/utils/msg2inc.pp

@@ -730,6 +730,9 @@ begin
                end;
                end;
               if s[i+k]='_' then
               if s[i+k]='_' then
                inc(i,k+1);
                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 \\');
               writeln(t,'\item ['+s1+escapestring(Copy(s,i,255))+'] \hfill \\');
             end
             end
            else
            else