[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/realgud-trepan-ni a56f72b 1/4: Add "info breakpoints"
From: |
Rocky Bernstein |
Subject: |
[elpa] externals/realgud-trepan-ni a56f72b 1/4: Add "info breakpoints" |
Date: |
Fri, 24 May 2019 16:30:12 -0400 (EDT) |
branch: externals/realgud-trepan-ni
commit a56f72b72c06131d9b909016a4202f4885c65335
Author: rocky <address@hidden>
Commit: rocky <address@hidden>
Add "info breakpoints"
---
trepan-ni/init.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/trepan-ni/init.el b/trepan-ni/init.el
index 605a1ee..4dc5542 100644
--- a/trepan-ni/init.el
+++ b/trepan-ni/init.el
@@ -1,4 +1,5 @@
;; Copyright (C) 2019 Free Software Foundation, Inc
+;; Author: Rocky Bernstein
;; 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
@@ -17,6 +18,7 @@
(eval-when-compile (require 'cl-lib)) ;For setf.
+(require 'load-relative)
(require 'realgud)
(require 'realgud-lang-js)
(require 'ansi-color)
@@ -171,12 +173,12 @@ trepan-ni command to use, like 'out'.")
(setf (gethash "continue" realgud:trepan-ni-command-hash) "cont")
(setf (gethash "delete" realgud:trepan-ni-command-hash)
"deleteBreakpoint(%p)")
-
+(setf (gethash "eval" realgud:trepan-ni-command-hash) "eval('%s')")
+(setf (gethash "finish" realgud:trepan-ni-command-hash) "out")
+(setf (gethash "info-breakpoints" realgud:trepan-ni-command-hash)
"breakpoints")
(setf (gethash "kill" realgud:trepan-ni-command-hash) "kill")
(setf (gethash "quit" realgud:trepan-ni-command-hash) ".exit")
-(setf (gethash "finish" realgud:trepan-ni-command-hash) "out")
(setf (gethash "shell" realgud:trepan-ni-command-hash) "repl")
-(setf (gethash "eval" realgud:trepan-ni-command-hash) "eval('%s')")
;; We need aliases for step and next because the default would
;; do step 1 and trepan-ni doesn't handle this. And if it did,