[elpa] externals/dape 1a9d381224 07/10: Add breakpoint info command for editing breakpoint in buffer

[ELPA Syncer]

branch: externals/dape
commit 1a9d381224ebe7042d34c4d8b5047fc14ba3a461
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>

    Add breakpoint info command for editing breakpoint in buffer
---
 dape.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/dape.el b/dape.el
index 185b329c86..1143731fd4 100644
--- a/dape.el
+++ b/dape.el
@@ -2870,9 +2870,23 @@ buffers are already displayed."
   (dape--breakpoint-remove dape--info-breakpoint)
   (dape--display-buffer (dape--info-buffer 'dape-info-breakpoints-mode)))
 
+(dape--info-buffer-command dape-info-breakpoint-log-edit 
(dape--info-breakpoint)
+  "Edit breakpoint at line in dape info buffer."
+  (let ((edit-fn
+         (cond ((overlay-get dape--info-breakpoint 'dape-log-message)
+                'dape-breakpoint-log)
+               ((overlay-get dape--info-breakpoint 'dape-expr-message)
+                'dape-breakpoint-expression)
+               ((user-error "Unable to edit breakpoint on line without log or 
expression breakpoint")))))
+    (when-let* ((buffer (overlay-buffer dape--info-breakpoint)))
+      (with-selected-window (display-buffer buffer 
dape-display-source-buffer-action)
+        (goto-char (overlay-start dape--info-breakpoint))
+        (call-interactively edit-fn)))))
+
 (dape--info-buffer-map dape-info-breakpoints-line-map dape-info-breakpoint-goto
   (define-key map "D" 'dape-info-breakpoint-delete)
-  (define-key map "d" 'dape-info-breakpoint-delete))
+  (define-key map "d" 'dape-info-breakpoint-delete)
+  (define-key map "e" 'dape-info-breakpoint-log-edit))
 
 (dape--info-buffer-command dape-info-exceptions-toggle (dape--info-exception)
   "Toggle exception at line in dape info buffer."