[elpa] master 4f5c91f 177/215: Add basic support for jumping

[Rocky Bernstein]

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

    Add basic support for jumping
---
 README.md                  |    3 ++-
 realgud/common/cmds.el     |    7 +++++++
 realgud/common/shortkey.el |    1 +
 3 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index b9f2fd0..e2e9cbc 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/rocky/emacs-dbgr/w
 | <kbd>u</kbd>, <kbd>&gt;</kbd>                | Up stack (move to older stack 
frame)           |
 | <kbd>d</kbd>, <kbd>&lt;</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 22a10f9..098fc23 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 17e3aa5..93b32aa 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)