emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/dape f9271ca949 6/8: Simplify info breakpoint buffer go


From: ELPA Syncer
Subject: [elpa] externals/dape f9271ca949 6/8: Simplify info breakpoint buffer goto breakpoint
Date: Thu, 14 Dec 2023 15:57:40 -0500 (EST)

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

    Simplify info breakpoint buffer goto breakpoint
---
 dape.el | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

diff --git a/dape.el b/dape.el
index 71c157d274..6010afc5f0 100644
--- a/dape.el
+++ b/dape.el
@@ -2662,18 +2662,10 @@ FN is executed on mouse-2 and ?r, BODY is executed 
inside of let stmt."
 
 (dape--info-buffer-command dape-info-breakpoint-goto (dape--info-breakpoint)
   "Goto breakpoint at line in dape info buffer."
-  (when-let* ((buffer (overlay-buffer dape--info-breakpoint))
-              (line
-               (with-current-buffer buffer
-                 (line-number-at-pos (overlay-start dape--info-breakpoint))))
-              (source
-               (with-current-buffer buffer
-                 (or dape--source
-                     (list
-                      :name (file-name-nondirectory
-                             (buffer-file-name buffer))
-                      :path (buffer-file-name buffer))))))
-    (dape--goto-source (list :source source :line line) nil t)))
+  (when-let* ((buffer (overlay-buffer dape--info-breakpoint)))
+    (display-buffer buffer
+                    dape-display-source-buffer-action)
+    (goto-char (overlay-start buffer))))
 
 (dape--info-buffer-command dape-info-breakpoint-delete (dape--info-breakpoint)
   "Delete breakpoint at line in dape info buffer."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]