From 226843b5d3c171734426756ceecba13817294eb9 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sun, 8 Jun 2008 13:52:16 +0200
Subject: Internal viewer: detect file encoding from the first 100 lines only

---
 UViewer.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'UViewer.pas')

diff --git a/UViewer.pas b/UViewer.pas
index 70d3a64..4169b6a 100644
--- a/UViewer.pas
+++ b/UViewer.pas
@@ -392,7 +392,7 @@ begin
     LineBuffer.LoadFromFile(FileName);
     
     Valid := True;
-    for i := 0 to LineBuffer.Count - 1 do begin
+    for i := 0 to Min(100, LineBuffer.Count - 1) do begin
       Valid := Valid and g_utf8_validate(PChar(LineBuffer[i]), Length(LineBuffer[i]), nil);
       if not Valid then begin
         DebugMsg(['** TFViewer.LoadFile(', FileName, ', Line ', i + 1, ') is not UTF-8 valid.']);
-- 
cgit v1.2.3