branch: elpa/aidermacs
commit 95620db88f0bc50b7242f4b06833cbe15ffa1172
Author: Mingde (Matthew) Zeng <matthew...@posteo.net>
Commit: Mingde (Matthew) Zeng <matthew...@posteo.net>
Make correct defvar-locals
---
aidermacs-backends.el | 10 +++++-----
aidermacs.el | 2 +-
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/aidermacs-backends.el b/aidermacs-backends.el
index 2302a161b3..5a384ffaa1 100644
--- a/aidermacs-backends.el
+++ b/aidermacs-backends.el
@@ -54,14 +54,14 @@ of using a comint process."
:type 'integer
:group 'aidermacs-output)
-(defvar aidermacs--output-history nil
+(defvar-local aidermacs--output-history nil
"List to store aidermacs output history.
Each entry is a cons cell (timestamp . output-text).")
-(defvar aidermacs--last-command nil
+(defvar-local aidermacs--last-command nil
"Store the last command sent to aidermacs.")
-(defvar aidermacs--current-output ""
+(defvar-local aidermacs--current-output ""
"Accumulator for current output being captured as a string.")
(defun aidermacs-get-output-history (&optional limit)
@@ -78,10 +78,10 @@ Returns a list of (timestamp . output-text) pairs, most
recent first."
(interactive)
(setq aidermacs--output-history nil))
-(defvar aidermacs--current-callback nil
+(defvar-local aidermacs--current-callback nil
"Store the callback function for the current command.")
-(defvar aidermacs--in-callback nil
+(defvar-local aidermacs--in-callback nil
"Flag to prevent recursive callbacks.")
(defun aidermacs--store-output (output)
diff --git a/aidermacs.el b/aidermacs.el
index a11d8a9336..95141141fb 100644
--- a/aidermacs.el
+++ b/aidermacs.el
@@ -98,7 +98,7 @@ This is the file name without path."
:type 'string
:group 'aidermacs)
-(defvar aidermacs-read-string-history nil
+(defvar-local aidermacs-read-string-history nil
"History list for aidermacs read string inputs.")
;;;###autoload
