[elpa] externals/realgud-trepan-ni 2bf8727 06/25: Add file-line kind of tracking

[Rocky Bernstein]

branch: externals/realgud-trepan-ni
commit 2bf872782508cbe215644428c040abc55f3c1503
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    Add file-line kind of tracking
---
 trepan-ni/core.el       | 2 +-
 trepan-ni/init.el       | 2 ++
 trepan-ni/track-mode.el | 3 +++
 3 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/trepan-ni/core.el b/trepan-ni/core.el
index 41c785f..7c8abae 100644
--- a/trepan-ni/core.el
+++ b/trepan-ni/core.el
@@ -59,7 +59,7 @@ We return the a list containing
 
 For example for the following input:
   (map 'list 'symbol-name
-   '(node --interactive --debugger-port 5858 /tmp trepan-ni ./gcd.js a b))
+   '(node --interactive --debugger-port 5858 trepan-ni ./gcd.js a b))
 
 we might return:
    ((\"node\" \"--interactive\" \"--debugger-port\" \"5858\") nil 
(\"/tmp/gcd.js\" \"a\" \"b\"))
diff --git a/trepan-ni/init.el b/trepan-ni/init.el
index 9c00408..6ee410a 100644
--- a/trepan-ni/init.el
+++ b/trepan-ni/init.el
@@ -41,6 +41,8 @@ realgud-loc-pat struct")
        :file-group 1
        :line-group 2))
 
+(setf (gethash "file-line" realgud:trepan-ni-pat-hash) 
realgud:js-file-line-loc-pat)
+
 ;; Regular expression that describes a trepan-ni command prompt
 ;; For example:
 ;;   debug>
diff --git a/trepan-ni/track-mode.el b/trepan-ni/track-mode.el
index c4f165d..48fb5b2 100644
--- a/trepan-ni/track-mode.el
+++ b/trepan-ni/track-mode.el
@@ -36,6 +36,9 @@
     (message "trepan-ni track-mode-hook disable called"))
 )
 
+(define-key realgud:ni-track-mode-map
+  (kbd "C-c !f") 'realgud:js-goto-file-line)
+
 ;; FIXME: this shouldn't be needed
 (defvar realgud:trepan-ni-track-mode-map (make-keymap))
 (define-key realgud:trepan-ni-track-mode-map