From ad280fc06c547e4613f49f84c409c71a4ed5efdf Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 3 May 2015 05:40:54 +0200
Subject: [PATCH] messages, support for quick jump from assert errors

---
 src/ce_messages.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 89253800..8c40a62e 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -553,6 +553,7 @@ begin
   item.ImageIndex := iconIndex(aKind);
   item.SelectedIndex := item.ImageIndex;
   clearOutOfRangeMessg;
+  //TODO:-cfeature: reset horz scroll bar to the left
   scrollToBack;
   Application.ProcessMessages;
   filterMessages(fCtxt);
@@ -787,8 +788,11 @@ begin
         exit;
       getMultiDocHandler.openDocument(ident);
       result := true;
-    end;
-    ident += aMessage[i];
+    end
+    else if aMessage[i] = '@' then
+      ident := ''
+    else
+      ident += aMessage[i];
   end;
 end;
 {$ENDREGION}