branch: master
commit 32fb382cd8d97b21dfff3547af7d75d01dfb4fea
Merge: 1ff6720 260bc5a
Author: R. Bernstein <ro...@users.noreply.github.com>
Commit: R. Bernstein <ro...@users.noreply.github.com>
Merge pull request #126 from realgud/103-jump
103 jump
---
README.md | 3 ++-
realgud/common/cmds.el | 7 +++++++
realgud/common/shortkey.el | 1 +
realgud/debugger/bashdb/init.el | 5 ++++-
realgud/debugger/nodejs/init.el | 5 ++++-
realgud/debugger/perldb/init.el | 1 +
realgud/debugger/remake/init.el | 18 +++++++++++++++++-
realgud/debugger/trepan.pl/init.el | 3 +++
realgud/debugger/zshdb/init.el | 5 ++++-
9 files changed, 43 insertions(+), 5 deletions(-)
diff --git a/README.md b/README.md
index 12abc7b..4cc06f1 100644
--- a/README.md
+++ b/README.md
@@ -48,7 +48,7 @@ Here is a quick rundown of the most useful commands. “🐁”
indicates mouse
| Command | Action
|
| --------------------------------------------- |
--------------------------------------------- |
| <kbd>n</kbd>, <kbd>F10</kbd> | Next (aka “step over”,
“step through”) |
- | <kbd>s</kbd>, <kbd>SPC</kbd>, <kbd>F11</kbd> | Step (aka “step into”;
`C-u`: repeat) |
+ | <kbd>s</kbd>, <kbd>SPC</kbd>, <kbd>F11</kbd> | Step (aka “step into”)
|
| <kbd>f</kbd>, <kbd>S-F11</kbd> | Finish (aka “step out”,
“return”) |
| <kbd>c</kbd>, <kbd>F5</kbd> | Continue (run to next
break point) |
@@ -90,6 +90,7 @@ RealGUD supports [many external
debuggers](https://github.com/realgud/realgud/wi
| <kbd>u</kbd>, <kbd>></kbd> | Up stack (move to older stack
frame) |
| <kbd>d</kbd>, <kbd><</kbd> | Down stack (move to younger
stack frame) |
| <kbd>X</kbd> | Clear breakpoint (by line)
|
+| <kbd>j</kbd> | Jump to current line ⚙
|
| <kbd>-</kbd> | Disable breakpoint ⚙
|
| <kbd>+</kbd> | Enable breakpoint ⚙
|
diff --git a/realgud/common/cmds.el b/realgud/common/cmds.el
index 0aa9faf..3f04503 100644
--- a/realgud/common/cmds.el
+++ b/realgud/common/cmds.el
@@ -97,6 +97,7 @@ with other motion initiated by debugger messages."
(puthash "eval" "eval %s" hash)
(puthash "finish" "finish" hash)
(puthash "frame" "frame %p" hash)
+ (puthash "jump" "jump %l" hash)
(puthash "kill" "kill" hash)
(puthash "next" "next %p" hash)
(puthash "repeat-last" "\n" hash)
@@ -180,6 +181,12 @@ With prefix argument LINE-NUMBER, prompt for line number."
(realgud:cmd--with-line-override line-number
(realgud:cmd-run-command line-number
"clear")))
+(defun realgud:cmd-jump(&optional line-number)
+ "Jump to current line.
+With prefix argument LINE-NUMBER, prompt for line number."
+ (interactive (realgud:cmd--line-number-from-prefix-arg))
+ (realgud:cmd--with-line-override line-number
+ (realgud:cmd-run-command (line-number-at-pos) "jump")))
(defun realgud:cmd-continue(&optional arg)
"Continue execution.
diff --git a/realgud/common/shortkey.el b/realgud/common/shortkey.el
index 5a31544..ef5cb86 100644
--- a/realgud/common/shortkey.el
+++ b/realgud/common/shortkey.el
@@ -43,6 +43,7 @@
(define-key map "8" 'realgud:goto-loc-hist-8)
(define-key map "9" 'realgud:goto-loc-hist-9)
(define-key map "b" 'realgud:cmd-break)
+ (define-key map "j" 'realgud:cmd-jump)
(define-key map "c" 'realgud:cmd-continue)
(define-key map "e" 'realgud:cmd-eval-dwim)
(define-key map "U" 'realgud:cmd-until)
diff --git a/realgud/debugger/bashdb/init.el b/realgud/debugger/bashdb/init.el
index 81cf9b5..af36b42 100644
--- a/realgud/debugger/bashdb/init.el
+++ b/realgud/debugger/bashdb/init.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2015 Free Software Foundation, Inc
+;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
;; Author: Rocky Bernstein <ro...@gnu.org>
@@ -89,4 +89,7 @@ realgud-loc-pat struct")
(setf (gethash "quit" realgud:bashdb-command-hash) "quit!")
(setf (gethash "until" realgud:bashdb-command-hash) "continue %l")
+;; Unsupported features:
+(setf (gethash "jump" realgud:bashdb-command-hash) "*not-implemented*")
+
(provide-me "realgud:bashdb-")
diff --git a/realgud/debugger/nodejs/init.el b/realgud/debugger/nodejs/init.el
index 118eb22..e20211e 100644
--- a/realgud/debugger/nodejs/init.el
+++ b/realgud/debugger/nodejs/init.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2015 Free Software Foundation, Inc
+;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
;; Author: Rocky Bernstein <ro...@gnu.org>
@@ -161,4 +161,7 @@ realgud-loc-pat struct")
(setf (gethash "step" realgud:nodejs-command-hash) "step")
(setf (gethash "next" realgud:nodejs-command-hash) "next")
+;; Unsupported features:
+(setf (gethash "jump" realgud:nodejs-command-hash) "*not-implemented*")
+
(provide-me "realgud:nodejs-")
diff --git a/realgud/debugger/perldb/init.el b/realgud/debugger/perldb/init.el
index 9e9c556..27c47c0 100644
--- a/realgud/debugger/perldb/init.el
+++ b/realgud/debugger/perldb/init.el
@@ -139,6 +139,7 @@ realgud-loc-pat struct")
(setf (gethash "shell" realgud:perldb-command-hash) "*not-implemented*")
(setf (gethash "up" realgud:perldb-command-hash) "*not-implemented*")
(setf (gethash "down" realgud:perldb-command-hash) "*not-implemented*")
+(setf (gethash "jump" realgud:perldb-command-hash) "*not-implemented*")
(setf (gethash "kill" realgud:perldb-command-hash) "*not-implemented*")
(provide-me "realgud:perldb-")
diff --git a/realgud/debugger/remake/init.el b/realgud/debugger/remake/init.el
index d2888c1..fbaa643 100644
--- a/realgud/debugger/remake/init.el
+++ b/realgud/debugger/remake/init.el
@@ -1,4 +1,18 @@
-;;; Copyright (C) 2011, 2014 Rocky Bernstein <ro...@gnu.org>
+;; Copyright (C) 2011, 2014, 2016 Free Software Foundation, Inc
+;; Author: Rocky Bernstein <ro...@gnu.org>
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Regular expressions for GNU Make debugger: remake
(eval-when-compile (require 'cl))
@@ -131,5 +145,7 @@ backtrace listing.")
(setf (gethash "eval" realgud:remake-command-hash) "expand %s")
(setf (gethash "remake" realgud-command-hash) realgud:remake-command-hash)
+;; Unsupported features:
+(setf (gethash "jump" realgud:remake-command-hash) "*not-implemented*")
(provide-me "realgud:remake-")
diff --git a/realgud/debugger/trepan.pl/init.el
b/realgud/debugger/trepan.pl/init.el
index 8092120..a563295 100644
--- a/realgud/debugger/trepan.pl/init.el
+++ b/realgud/debugger/trepan.pl/init.el
@@ -256,4 +256,7 @@ backtrace listing.")
(setf (gethash realgud:trepanpl-debugger-name
realgud-command-hash) realgud:trepanpl-command-hash)
+;; Unsupported features:
+(setf (gethash "jump" realgud:trepanpl-command-hash) "*not-implemented*")
+
(provide-me "realgud:trepanpl-")
diff --git a/realgud/debugger/zshdb/init.el b/realgud/debugger/zshdb/init.el
index e8bc9ff..a5613c7 100644
--- a/realgud/debugger/zshdb/init.el
+++ b/realgud/debugger/zshdb/init.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2015 Free Software Foundation, Inc
+;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
;; Author: Rocky Bernstein <ro...@gnu.org>
@@ -87,4 +87,7 @@ realgud-loc-pat struct")
(setf (gethash "quit" realgud:zshdb-command-hash) "quit")
(setf (gethash "until" realgud:zshdb-command-hash) "continue %l")
+;; Unsupported features:
+(setf (gethash "jump" realgud:zshdb-command-hash) "*not-implemented*")
+
(provide-me "realgud:zshdb-")
