[elpa] externals/realgud 542e51c 097/140: Merge pull request #220 from MaskRay/tbreak

[Rocky Bernstein]

branch: externals/realgud
commit 542e51c659fa576f8f39c4f554aefa3d429d2a6e
Merge: 4bcbb89 bb967ed
Author: R. Bernstein <address@hidden>
Commit: GitHub <address@hidden>

    Merge pull request #220 from MaskRay/tbreak
    
    Add tbreak as per break
---
 realgud/common/cmds.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/realgud/common/cmds.el b/realgud/common/cmds.el
index 594b8a0..0f20535 100644
--- a/realgud/common/cmds.el
+++ b/realgud/common/cmds.el
@@ -110,6 +110,7 @@ with other motion initiated by debugger messages."
     (puthash "restart"     "run" hash)
     (puthash "shell"       "shell" hash)
     (puthash "step"        "step %p" hash)
+    (puthash "tbreak"      "tbreak %X:%l" hash)
     (puthash "until"       "until" hash)
     (puthash "up"          "up %p" hash)
     hash)
@@ -180,6 +181,13 @@ With prefix argument LINE-NUMBER, prompt for line number."
   (realgud:cmd--with-line-override line-number
                                    (realgud:cmd-run-command line-number 
"break")))
 
+(defun realgud:cmd-tbreak (&optional line-number)
+  "Set a temporary breakpoint at 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 
"tbreak")))
+
 (defun realgud:cmd-clear(&optional line-number)
   "Delete breakpoint at the current line.
 With prefix argument LINE-NUMBER, prompt for line number."