[elpa] master d15f90a 132/215: Prepare for refactoring of realgud-cmd

[Rocky Bernstein]

branch: master
commit d15f90a18bb3f04276e6dcbe1635973a53bf1753
Author: Clément Pit--Claudel <address@hidden>
Commit: Clément Pit--Claudel <address@hidden>

    Prepare for refactoring of realgud-cmd
    
    * all: remove (declare-function cmd-remap)
    * perldb: Remove custom binding for backtrace
    * nodejs: Remove custom bindings for backtrace.  Remove rebinding of
      “break” and update hash instead.
---
 realgud/debugger/nodejs/init.el       |    2 +-
 realgud/debugger/nodejs/track-mode.el |   10 ----------
 realgud/debugger/perldb/track-mode.el |    7 -------
 realgud/debugger/remake/track-mode.el |    1 -
 realgud/debugger/zshdb/track-mode.el  |    1 -
 5 files changed, 1 insertion(+), 20 deletions(-)

diff --git a/realgud/debugger/nodejs/init.el b/realgud/debugger/nodejs/init.el
index 9712b75..118eb22 100644
--- a/realgud/debugger/nodejs/init.el
+++ b/realgud/debugger/nodejs/init.el
@@ -148,7 +148,7 @@ realgud-loc-pat struct")
 
 (setf (gethash "backtrace"  realgud:nodejs-command-hash) "T")
 (setf (gethash "break"      realgud:nodejs-command-hash)
-      "setBreakpoint(%l)")
+      "setBreakpoint('%X',%l)")
 (setf (gethash "continue"   realgud:nodejs-command-hash) "cont")
 (setf (gethash "quit"       realgud:nodejs-command-hash) "quit")
 (setf (gethash "finish"     realgud:nodejs-command-hash) "out")
diff --git a/realgud/debugger/nodejs/track-mode.el 
b/realgud/debugger/nodejs/track-mode.el
index ff7465c..753e20d 100644
--- a/realgud/debugger/nodejs/track-mode.el
+++ b/realgud/debugger/nodejs/track-mode.el
@@ -28,7 +28,6 @@
 (require-relative-list '("core" "init") "realgud:nodejs-")
 ;; (require-relative-list '("../../lang/js") "realgud-lang-")
 
-(declare-function realgud:cmd-remap          'realgud-cmds)
 (declare-function realgud:track-set-debugger 'realgud-track-mode)
 (declare-function realgud-track-mode-setup   'realgud-track-mode)
 
@@ -74,12 +73,6 @@ If called interactively with no prefix argument, the mode is 
toggled. A prefix a
       ))
   )
 
-(defun realgud:nodejs-set-break(arg)
-  "Set a breakpoint at the current line"
-  (interactive "p")
-  (realgud:cmd-remap arg "break" "setBreakpoint('%X',%l)" "b")
-  )
-
 ;; ;; Debugger commands that nodejs doesn't have
 ;; (define-key nodejs-track-mode-map
 ;;   [remap realgud:cmd-newer-frame] 'undefined)
@@ -91,8 +84,5 @@ If called interactively with no prefix argument, the mode is 
toggled. A prefix a
   [remap realgud:cmd-step] 'realgud:cmd-step-no-arg)
 (define-key nodejs-short-key-mode-map
   [remap realgud:cmd-next] 'realgud:cmd-next-no-arg)
-(define-key nodejs-short-key-mode-map
-  [remap realgud:cmd-break] 'realgud:nodejs-set-break)
-(define-key nodejs-short-key-mode-map "T" 'realgud:cmd-backtrace)
 
 (provide-me "realgud:nodejs-")
diff --git a/realgud/debugger/perldb/track-mode.el 
b/realgud/debugger/perldb/track-mode.el
index 3d27722..39c2ec7 100644
--- a/realgud/debugger/perldb/track-mode.el
+++ b/realgud/debugger/perldb/track-mode.el
@@ -30,7 +30,6 @@
 
 (realgud-track-mode-vars "perldb")
 
-(declare-function realgud:cmd-remap           'realgud-cmds)
 (declare-function realgud-perl-populate-command-keys
                  'realgud:perldb)
 (declare-function realgud-track-mode 'realgud-track-mode)
@@ -72,16 +71,10 @@ If called interactively with no prefix argument, the mode 
is toggled. A prefix a
       ))
 )
 
-(defun realgud:perldb-backtrace(arg)
-  (interactive "p")
-  (realgud:cmd-remap arg "backtrace" "T" "T")
-)
-
 ;; Perldb doesn't have stack switching commands.
 (define-key perldb-short-key-mode-map
   [remap realgud:cmd-newer-frame] 'undefined)
 (define-key perldb-short-key-mode-map
   [remap realgud:cmd-older-frame] 'undefined)
-(define-key perldb-short-key-mode-map "T" 'realgud:perldb-backtrace)
 
 (provide-me "realgud:perldb-")
diff --git a/realgud/debugger/remake/track-mode.el 
b/realgud/debugger/remake/track-mode.el
index b2b6b97..8fae564 100644
--- a/realgud/debugger/remake/track-mode.el
+++ b/realgud/debugger/remake/track-mode.el
@@ -12,7 +12,6 @@
                       "realgud-")
 (require-relative-list '("core" "init") "realgud:remake-")
 
-(declare-function realgud:cmd-remap          'realgud-cmds)
 (declare-function realgud:track-set-debugger 'realgud-track-mode)
 (declare-function realgud-track-mode-setup   'realgud-track-mode)
 (declare-function realgud:track-set-debugger 'realgud-track-mode)
diff --git a/realgud/debugger/zshdb/track-mode.el 
b/realgud/debugger/zshdb/track-mode.el
index fa2ffe5..9df126f 100644
--- a/realgud/debugger/zshdb/track-mode.el
+++ b/realgud/debugger/zshdb/track-mode.el
@@ -13,7 +13,6 @@
 (require-relative-list '("core" "init") "realgud:zshdb-")
 (require-relative "../../lang/posix-shell" nil "realgud-lang-")
 
-(declare-function realgud:cmd-remap          'realgud-cmds)
 (declare-function realgud:track-set-debugger 'realgud-track-mode)
 (declare-function realgud-track-mode-setup   'realgud-track-mode)
 (declare-function realgud-posix-shell-populate-command-keys