From b50bd10818bcf5a32f27a90c86dbb6bdcb482aa5 Mon Sep 17 00:00:00 2001
From: andrew <andrew@idefix.freepascal.org>
Date: Sat, 10 Mar 2012 13:47:43 +0000
Subject: [PATCH] Fixed chm search results for large chm search databases with
> 2 node levels
git-svn-id: trunk@20493 -
---
packages/chm/src/chmfiftimain.pas | 1 +
1 file changed, 1 insertion(+)
diff --git a/packages/chm/src/chmfiftimain.pas b/packages/chm/src/chmfiftimain.pas
index c8c948f830..6510e30720 100644
--- a/packages/chm/src/chmfiftimain.pas
+++ b/packages/chm/src/chmfiftimain.pas
@@ -1030,6 +1030,7 @@ begin
//WriteLn('At Node Level ', NodeLevel);
if ReadIndexNodeEntry(LastWord, NewWord, NewNodePosition) <> False then
begin
+ LastWord := NewWord;
//WriteLn('Found Index Entry: ', NewWord, ' Comparing to ', AWord);
if ChmCompareText(NewWord, AWord) >= 0 then
begin