[elpa] master a8a5664 06/15: Misc tweaks and bug fixes

[Rocky Bernstein]

branch: master
commit a8a5664c1e3629b979a0a594cdf1b962fac7f01b
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    Misc tweaks and bug fixes
---
 node-inspect/init.el       | 15 ++++++++++-----
 node-inspect/track-mode.el | 11 +++--------
 2 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/node-inspect/init.el b/node-inspect/init.el
index 225c4b7..0120e52 100644
--- a/node-inspect/init.el
+++ b/node-inspect/init.el
@@ -49,12 +49,17 @@ realgud-loc-pat struct")
        :regexp (format "^\\(?:%s\\)*debug> " realgud:js-term-escape)
        ))
 
-;;  Regular expression that describes a "breakpoint set" line
-;;
+;; Need an improved setbreak for this.
+;; ;;  Regular expression that describes a "breakpoint set" line
+;; ;;   3 const armlet = require('armlet');
+;; ;; * 4 const client = new armlet.Client(
+;; ;; ^^^^
+;; ;;
 ;; (setf (gethash "brkpt-set" realgud:node-inspect-pat-hash)
 ;;       (make-realgud-loc-pat
-;;        :regexp "^[*] \\([0-9]+\\) "
-;;        :line-group 1))
+;;        :regexp "^\*[ ]*\\([0-9]+\\) \\(.+\\)"
+;;        :line-group 1
+;;        :text-group 2))
 
 ;; Regular expression that describes a V8 backtrace line.
 ;; For example:
@@ -175,6 +180,6 @@ realgud-loc-pat struct")
 (setf (gethash "frame"      realgud:node-inspect-command-hash) 
"*not-implemented*")
 
 (setf (gethash "node-inspect" realgud-command-hash) 
realgud:node-inspect-command-hash)
-(setf (gethash "node-inpsect" realgud-pat-hash) realgud:node-inspect-pat-hash)
+(setf (gethash "node-inspect" realgud-pat-hash) realgud:node-inspect-pat-hash)
 
 (provide-me "realgud:node-inspect-")
diff --git a/node-inspect/track-mode.el b/node-inspect/track-mode.el
index 818924d..8bd54ee 100644
--- a/node-inspect/track-mode.el
+++ b/node-inspect/track-mode.el
@@ -52,16 +52,11 @@ the argument is positive, and disables it otherwise.
   :group 'realgud:node-inspect
   :keymap realgud:node-inspect-track-mode-map
 
-  (realgud:track-set-debugger "node-inspect")
-  (realgud:node-inspect-track-mode-internal)
-)
-
-(defun realgud:node-inspect-track-mode-internal (&optional arg)
-  (realgud:track-set-debugger "node-inspect")
   (if realgud:node-inspect-track-mode
       (progn
-        (realgud-track-mode-setup 't)
-        (realgud:node-inspect-track-mode-hook))
+       (realgud:track-set-debugger "node-inspect")
+        (realgud:node-inspect-track-mode-hook)
+        (realgud:track-mode-enable))
     (progn
       (setq realgud-track-mode nil)
       ))