[elpa] externals/dape 08b7c77674 4/5: Add info-stack mappings to dape-memory and dape-disassemble

[ELPA Syncer]

branch: externals/dape
commit 08b7c77674e9da6012e576af6d01893ad98c6f06
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@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."