branch: externals/dape
commit 9f4df93f44775c07a7eb960f3cd7cbf096f4c2b5
Author: Daniel Pettersson <[email protected]>
Commit: Daniel Pettersson <[email protected]>
Fix info buffer header-line-format
Backwards compatible derived-mode-p usage
---
dape.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/dape.el b/dape.el
index 3df3e7f4ae..aea69c73d8 100644
--- a/dape.el
+++ b/dape.el
@@ -3224,7 +3224,7 @@ displayed."
(unless (seq-find (lambda (buffer)
(and (get-buffer-window buffer)
(with-current-buffer buffer
- (derived-mode-p group))))
+ (apply 'derived-mode-p group))))
(dape--info-buffer-list))
(setq buffer-displayed-p t)
(dape--display-buffer
@@ -3255,7 +3255,8 @@ displayed."
"Store related buffers in `dape--info-buffer-related'."
(setq dape--info-buffer-related
(cl-loop with group =
- (cl-find-if 'derived-mode-p
+ (cl-find-if (lambda (group)
+ (apply 'derived-mode-p group))
dape-info-buffer-window-groups)
with conn = (dape--live-connection 'stopped t)
with scopes = (plist-get (dape--current-stack-frame conn)
