[elpa] externals/realgud df03ba5 029/140: Merge pull request #195 from jodonnell/eval-at-point

[Rocky Bernstein]

branch: externals/realgud
commit df03ba5e6b43bed794b422afa050268c4247871c
Merge: 59b2563 1180d9f
Author: R. Bernstein <address@hidden>
Commit: GitHub <address@hidden>

    Merge pull request #195 from jodonnell/eval-at-point
    
    add eval at point and bind it to E in shortkey mode
---
 realgud/common/cmds.el     | 5 +++++
 realgud/common/shortkey.el | 1 +
 2 files changed, 6 insertions(+)

diff --git a/realgud/common/cmds.el b/realgud/common/cmds.el
index 0696ec9..06a202f 100644
--- a/realgud/common/cmds.el
+++ b/realgud/common/cmds.el
@@ -288,6 +288,11 @@ EVENT should be a mouse click on the left fringe or 
margin."
                           #'realgud:cmd-eval-region
                         #'realgud:cmd-eval)))
 
+(defun realgud:cmd-eval-at-point()
+  "Eval symbol under point."
+  (interactive)
+  (realgud:cmd-run-command (thing-at-point 'symbol) "eval"))
+
 (defun realgud:cmd-finish(&optional arg)
     "Run until the completion of the current stack frame.
 
diff --git a/realgud/common/shortkey.el b/realgud/common/shortkey.el
index 43c741f..364bfda 100644
--- a/realgud/common/shortkey.el
+++ b/realgud/common/shortkey.el
@@ -62,6 +62,7 @@
     (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 "E"        'realgud:cmd-eval-at-point)
     (define-key map "U"        'realgud:cmd-until)
     (define-key map [mouse-2]  'realgud:tooltip-eval)
     (define-key map [left-fringe mouse-1] #'realgud-cmds--mouse-add-remove-bp)