[elpa] externals/dape 37038ac75e 1/2: Read memory set point at the top of buffer

[ELPA Syncer]

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