[elpa] master 32fb382 190/215: Merge pull request #126 from realgud/103-jump

[Rocky Bernstein]

branch: master
commit 32fb382cd8d97b21dfff3547af7d75d01dfb4fea
Merge: 1ff6720 260bc5a
Author: R. Bernstein <address@hidden>
Commit: R. Bernstein <address@hidden>

    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>&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 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 <address@hidden>
 
@@ -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 <address@hidden>
 
@@ -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 <address@hidden>
+;; Copyright (C) 2011, 2014, 2016 Free Software Foundation, Inc
+;; Author: Rocky Bernstein <address@hidden>
+
+;; 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 <address@hidden>
 
@@ -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-")