Fix tab with no related buffers loaded in dape info group-1

svaante · Feb 6, 2024 · 3dac6e4 · 3dac6e4
1 parent d9b28ea
commit 3dac6e4
Showing 1 changed file with 8 additions and 6 deletions.
diff --git 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)))