branch: externals/dape
commit 37038ac75ef217764e7aa31d43122cc1009c09a7
Author: Daniel Pettersson <dan...@dpettersson.net>
Commit: Daniel Pettersson <dan...@dpettersson.net>
Read memory set point at the top of buffer
---
dape.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/dape.el b/dape.el
index 863029bd2e..2ae8c8e8f3 100644
--- a/dape.el
+++ b/dape.el
@@ -2391,7 +2391,8 @@ Using BUFFER and STR."
buffer-undo-list nil)
(let ((inhibit-read-only t)
(temp-buffer (generate-new-buffer " *temp*" t))
- (address (dape--memory-address-number)))
+ (address (dape--memory-address-number))
+ (buffer-empty-p (zerop (buffer-size))))
(with-current-buffer temp-buffer
(insert (base64-decode-string data))
(let (buffer-undo-list)
@@ -2407,6 +2408,8 @@ Using BUFFER and STR."
;; `hexl' does not support address over 8 hex chars
(insert (append (substring address (- (length address) 8)))))))
(replace-buffer-contents temp-buffer)
+ (when buffer-empty-p
+ (goto-char (point-min)))
(kill-buffer temp-buffer))
(set-buffer-modified-p nil)
(when write-capable-p
