branch: master
commit d15f90a18bb3f04276e6dcbe1635973a53bf1753
Author: Clément Pit--Claudel <[email protected]>
Commit: Clément Pit--Claudel <[email protected]>
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
