[elpa] externals/realgud 1da5f2b 113/140: Merge branch 'master' of github.com:realgud/realgud

[Rocky Bernstein]

branch: externals/realgud
commit 1da5f2b5161bd5d5671b38ab182084e2d89e7c45
Merge: 565ac78 2ae8fbf
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    Merge branch 'master' of github.com:realgud/realgud
---
 realgud/common/cmds.el     | 8 ++++++++
 realgud/common/key.el      | 3 ++-
 realgud/common/shortkey.el | 2 ++
 3 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/realgud/common/cmds.el b/realgud/common/cmds.el
index 0f20535..a46f3bc 100644
--- a/realgud/common/cmds.el
+++ b/realgud/common/cmds.el
@@ -112,6 +112,7 @@ with other motion initiated by debugger messages."
     (puthash "step"        "step %p" hash)
     (puthash "tbreak"      "tbreak %X:%l" hash)
     (puthash "until"       "until" hash)
+    (puthash "until-here"  "until %l" hash)    
     (puthash "up"          "up %p" hash)
     hash)
   "Default hash of command name → debugger command.
@@ -188,6 +189,13 @@ With prefix argument LINE-NUMBER, prompt for line number."
   (realgud:cmd--with-line-override line-number
                                    (realgud:cmd-run-command line-number 
"tbreak")))
 
+(defun realgud:cmd-until-here (&optional line-number)
+  "Continue until the 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 
"until-here")))
+
 (defun realgud:cmd-clear(&optional line-number)
   "Delete breakpoint at the current line.
 With prefix argument LINE-NUMBER, prompt for line number."
diff --git a/realgud/common/key.el b/realgud/common/key.el
index bb5ed7c..783afb9 100644
--- a/realgud/common/key.el
+++ b/realgud/common/key.el
@@ -122,7 +122,8 @@ Nor does it touch prefix keys; for that see 
`realgud-populate-keys-standard'"
     (define-key map "Q" 'realgud:cmd-terminate)
     (define-key map "S" 'realgud-window-src-undisturb-cmd)
     (define-key map "U" 'realgud:cmd-until)
-
+    (define-key map "h" 'realgud:cmd-until-here)
+    
     (define-key map [M-down]    'realgud-track-hist-newer)
     (define-key map [M-kp-2]    'realgud-track-hist-newer)
     (define-key map [M-up]      'realgud-track-hist-older)
diff --git a/realgud/common/shortkey.el b/realgud/common/shortkey.el
index 3483eed..b017372 100644
--- a/realgud/common/shortkey.el
+++ b/realgud/common/shortkey.el
@@ -67,6 +67,8 @@
     (define-key map "e"        'realgud:cmd-eval-dwim)
     (define-key map "E"        'realgud:cmd-eval-at-point)
     (define-key map "U"        'realgud:cmd-until)
+    (define-key map "h"        'realgud:cmd-until-here)
+    
     (define-key map [mouse-2]  'realgud:tooltip-eval)
     (define-key map [left-fringe mouse-1] #'realgud-cmds--mouse-add-remove-bp)
     (define-key map [left-margin mouse-1] #'realgud-cmds--mouse-add-remove-bp)