From 24e9f510b17477d067dbc6392e4c66240209bcbf Mon Sep 17 00:00:00 2001
From: embeddedc <marcschwab@web.de>
Date: Sun, 5 Apr 2020 09:29:24 +0200
Subject: [PATCH] Fix tmtags history if Find Tags run on a selection

---
 Support/bin/tmctags | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/Support/bin/tmctags b/Support/bin/tmctags
index c3bf7b6..ace0714 100755
--- a/Support/bin/tmctags
+++ b/Support/bin/tmctags
@@ -568,8 +568,16 @@ HTML
 		
 	}
 	
-	my $history.=qq{<dt><span class="filename"><a href="txmt://open?url=file://$ENV{'TM_FILEPATH'}&line=$ENV{'TM_LINE_NUMBER'}">$ENV{'TM_FILENAME'}:$ENV{'TM_LINE_NUMBER'} -- $ENV{'TM_DIRECTORY'}</a></span><br><div class="code">$ENV{'TM_CURRENT_LINE'}</div></dt>\n};
-	
+	my $history;
+	if(exists($ENV{'TM_LINE_NUMBER'}))
+	{
+		$history.=qq{<dt><span class="filename"><a href="txmt://open?url=file://$ENV{'TM_FILEPATH'}&line=$ENV{'TM_LINE_NUMBER'}">$ENV{'TM_FILENAME'}:$ENV{'TM_LINE_NUMBER'} -- $ENV{'TM_DIRECTORY'}</a></span><br><div class="code">$ENV{'TM_CURRENT_LINE'}</div></dt>\n};
+	}
+	else
+	{
+		$history.=qq{<dt><span class="filename"><a href="txmt://open?url=file://$ENV{'TM_FILEPATH'}&line=$ENV{'TM_INPUT_START_LINE'}">$ENV{'TM_FILENAME'}:$ENV{'TM_INPUT_START_LINE'} -- $ENV{'TM_DIRECTORY'}</a></span><br><div class="code">$ENV{'TM_SELECTED_TEXT'}</div></dt>\n};
+	}
+  	
 	if($CtagsHistorySize>1)
 	{
 		my $h=$CtagsHistorySize-1;