[elpa] externals/dape 3dac6e46e9 2/2: Fix tab with no related buffers loaded in dape info group-1

[ELPA Syncer]

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

    Fix tab with no related buffers loaded in dape info group-1
---
 dape.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/dape.el b/dape.el
index b469105015..3bb16c0758 100644
--- a/dape.el
+++ b/dape.el
@@ -2869,12 +2869,14 @@ REVERSED selects previous."
     (user-error "No related buffers for current buffer"))
   (pcase-let* ((order-fn (if reversed 'reverse 'identity))
                (`(,mode ,id)
-                (thread-last (append dape--info-buffer-related
-                                     dape--info-buffer-related)
-                             (funcall order-fn)
-                             (seq-drop-while (pcase-lambda (`(,mode ,id))
-                                               (not (dape--info-buffer-p mode 
id))))
-                             (cadr))))
+                (or
+                 (thread-last (append dape--info-buffer-related
+                                      dape--info-buffer-related)
+                              (funcall order-fn)
+                              (seq-drop-while (pcase-lambda (`(,mode ,id))
+                                                (not (dape--info-buffer-p mode 
id))))
+                              (cadr))
+                 (car dape--info-buffer-related))))
     (gdb-set-window-buffer
      (dape--info-buffer mode id) t)))