From 3a6e4826505c71ecb16a6ddff547fd8fd6a81c22 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 23 Jun 2018 14:51:44 +0200
Subject: [PATCH] save a sloc when adding messages

---
 src/ce_messages.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 326e4572..c259f3f5 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -903,8 +903,7 @@ begin
     fBtns[aCtxt].Click;
   if fastDisplay then
     IncLoopUpdate;
-  item := List.Items.Add(nil, msg);
-  item.Data := dt;
+  item := List.Items.AddObject(nil, msg, dt);
   item.ImageIndex := iconIndex(aKind);
   item.SelectedIndex := item.ImageIndex;
   if not fastDisplay then