branch: externals/dape
commit 08b7c77674e9da6012e576af6d01893ad98c6f06
Author: Daniel Pettersson <dan...@dpettersson.net>
Commit: Daniel Pettersson <dan...@dpettersson.net>
Add info-stack mappings to dape-memory and dape-disassemble
---
dape.el | 16 +++++++++++++++-
1 file changed, 15 insertions(+), 1 deletion(-)
diff --git a/dape.el b/dape.el
index 78eacb4e2e..ae3456a9c7 100644
--- a/dape.el
+++ b/dape.el
@@ -3944,7 +3944,21 @@ See `dape-request' for expected CB signature."
(plist-get dape--info-frame :id))
(revert-buffer))
-(dape--buffer-map dape-info-stack-line-map dape-info-stack-select)
+(dape--command-at-line dape-info-stack-memory (dape--info-frame)
+ "View and edit memory at address of frame."
+ (if-let* ((ref (plist-get dape--info-frame :instructionPointerReference)))
+ (dape-memory ref)
+ (user-error "No address for frame")))
+
+(dape--command-at-line dape-info-stack-disassemble (dape--info-frame)
+ "View disassemble at address of frame."
+ (if-let* ((ref (plist-get dape--info-frame :instructionPointerReference)))
+ (dape-disassemble ref)
+ (user-error "No address for frame")))
+
+(dape--buffer-map dape-info-stack-line-map dape-info-stack-select
+ (define-key map "m" 'dape-info-stack-memory)
+ (define-key map "M" 'dape-info-stack-disassemble))
(define-derived-mode dape-info-stack-mode dape-info-parent-mode "Stack"
"Major mode for Dape info stack."
