From 77cfd7ea9d0c61719c7aad5cd1286e3e78cfb385 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Thu, 12 Apr 2018 11:30:05 -0300
Subject: [PATCH] Adds Ctrl+Shift+G shortcut to jump to line with error.

---
 source/ide/ide_methods.bas | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index d857d2dad..291d8668a 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -956,7 +956,7 @@ FUNCTION ide2 (ignore)
                         NEXT
 
                         IF l <> 0 AND idecy <> l THEN
-                            a$ = " on line" + STR$(l)
+                            a$ = " on line" + STR$(l) + " (click here or Ctrl+Shift+G to jump there)"
                             COLOR 11, 1
                             FOR i = 1 TO LEN(a$)
                                 x = x + 1: IF x = idewx THEN x = 2: y = y + 1
@@ -3002,9 +3002,16 @@ FUNCTION ide2 (ignore)
         END IF
 
         IF KCONTROL AND UCASE$(K$) = "G" THEN 'goto line
-            retval = idegotobox
-            'retval is ignored
-            PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
+            IF KSHIFT AND idefocusline > 0 THEN
+                idecx = 1
+                AddQuickNavHistory idecy
+                idecy = idefocusline
+                ideselect = 0
+            ELSE
+                retval = idegotobox
+                'retval is ignored
+                PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
+            END IF
             GOTO specialchar
         END IF