branch: elpa/aidermacs
commit 1dc5ba421d125badecbd80c6ae14c3def27bc1a7
Author: Mingde (Matthew) Zeng <matthew...@posteo.net>
Commit: Mingde (Matthew) Zeng <matthew...@posteo.net>
Fix aidermacs--is-aidermacs-buffer-p
---
aidermacs-backend-comint.el | 2 +-
aidermacs-backends.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/aidermacs-backend-comint.el b/aidermacs-backend-comint.el
index 7968c51d7e..92d3c020c6 100644
--- a/aidermacs-backend-comint.el
+++ b/aidermacs-backend-comint.el
@@ -368,7 +368,7 @@ The output is collected and passed to the current callback."
map)
"Keymap used when `aidermacs-comint-mode' is enabled.")
-(define-derived-mode aidermacs-comint-mode comint-mode "Aider"
+(define-derived-mode aidermacs-comint-mode comint-mode "Aidermacs"
"Major mode for interacting with Aidermacs.
Inherits from `comint-mode' with some Aider-specific customizations.
\\{aider-comint-mode-map}"
diff --git a/aidermacs-backends.el b/aidermacs-backends.el
index 8fb6ba5900..854cf4aeb2 100644
--- a/aidermacs-backends.el
+++ b/aidermacs-backends.el
@@ -75,7 +75,7 @@ Returns non-nil if the buffer has either
`aidermacs-comint-mode' or
`aidermacs-vterm-mode' enabled."
(let ((buf (or buffer (current-buffer))))
(with-current-buffer buf
- (or (bound-and-true-p aidermacs-comint-mode)
+ (or (derived-mode-p 'aidermacs-comint-mode)
(bound-and-true-p aidermacs-vterm-mode)))))
(defun aidermacs--send-command-backend (buffer command &optional redirect)
