From fcb13f4906ac7875cf85e68291307cc4e89285cd Mon Sep 17 00:00:00 2001
From: shg <55463+shg@users.noreply.github.com>
Date: Wed, 11 May 2022 07:29:40 +0900
Subject: [PATCH] Make sure to run the correct per-buffer filter functions by
 using closure

---
 julia-vterm.el | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/julia-vterm.el b/julia-vterm.el
index 9e39165..2af3ce2 100644
--- a/julia-vterm.el
+++ b/julia-vterm.el
@@ -109,7 +109,8 @@ recreated."
 	  (vterm-shell julia-vterm-repl-program))
       (with-current-buffer buffer
 	(julia-vterm-repl-mode)
-	(add-function :filter-args (process-filter vterm--process) #'julia-vterm-repl-run-filter-functions))
+	(add-function :filter-args (process-filter vterm--process)
+		      (julia-vterm-repl-run-filter-functions-func session-name)))
       buffer)))
 
 (defun julia-vterm-repl-buffer (&optional session-name restart)
@@ -149,14 +150,16 @@ If there's already one with the process alive, just open it."
 (defvar-local julia-vterm-repl-filter-functions '()
   "List of filter functions that process the output to the REPL buffer.")
 
-(defun julia-vterm-repl-run-filter-functions (args)
-  "Run registered filter functions with ARGS."
-  (let ((proc (car args))
-	(str (cadr args)))
-    (let ((funcs julia-vterm-repl-filter-functions))
-      (while funcs
-	(setq str (apply (pop funcs) (list str))))
-      (list proc str))))
+(defun julia-vterm-repl-run-filter-functions-func (session)
+  "Return a function that runs registered filter functions for SESSION with args."
+  (lambda (args)
+    (with-current-buffer (julia-vterm-repl-buffer session)
+      (let ((proc (car args))
+	    (str (cadr args)))
+	(let ((funcs julia-vterm-repl-filter-functions))
+	  (while funcs
+	    (setq str (apply (pop funcs) (list str))))
+	  (list proc str))))))
 
 (defun julia-vterm-repl-buffer-status ()
   (let* ((bs (buffer-string))