[elpa] externals/realgud e47abfb 044/140: Merge pull request #197 from jodonnell/eval-command

[Rocky Bernstein]

branch: externals/realgud
commit e47abfbede7cc49aa6939117dfae49d860849a3a
Merge: 4babac3 f20f1e3
Author: R. Bernstein <address@hidden>
Commit: GitHub <address@hidden>

    Merge pull request #197 from jodonnell/eval-command
    
    change E to put the thing at point in the read string
---
 realgud/common/cmds.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/realgud/common/cmds.el b/realgud/common/cmds.el
index 06a202f..9c7f88f 100644
--- a/realgud/common/cmds.el
+++ b/realgud/common/cmds.el
@@ -16,6 +16,7 @@
 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 (require 'load-relative)
+(require 'thingatpt)
 (require-relative-list  '("send" "core") "realgud-")
 (require-relative-list  '("buffer/command") "realgud-buffer-")
 (require-relative-list  '("buffer/source") "realgud-buffer-")
@@ -291,7 +292,14 @@ EVENT should be a mouse click on the left fringe or 
margin."
 (defun realgud:cmd-eval-at-point()
   "Eval symbol under point."
   (interactive)
-  (realgud:cmd-run-command (thing-at-point 'symbol) "eval"))
+
+  (beginning-of-thing 'symbol)
+  (set-mark-command 'nil)
+  (end-of-thing 'symbol)
+
+  (realgud:cmd-run-command
+   (read-string "Eval: " (thing-at-point 'symbol))
+   "eval"))
 
 (defun realgud:cmd-finish(&optional arg)
     "Run until the completion of the current stack frame.