From f5e7aaed66e807920f084b309e7595a2a6c9c216 Mon Sep 17 00:00:00 2001
From: nverno <noah.v.peart@gmail.com>
Date: Sun, 3 Dec 2023 19:21:04 -0800
Subject: [PATCH] Fix: add comint hook locally in lua-ts-inferior-lua
* lisp/progmodes/lua-ts-mode.el (lua-ts-inferior-lua): Add
'comint-preoutput-filter-functions' hook locally. (Bug#67616)
---
lisp/progmodes/lua-ts-mode.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/lisp/progmodes/lua-ts-mode.el b/lisp/progmodes/lua-ts-mode.el
index 7307a5b13f1..5318144a057 100644
--- a/lisp/progmodes/lua-ts-mode.el
+++ b/lisp/progmodes/lua-ts-mode.el
@@ -560,9 +560,7 @@ Calls REPORT-FN directly."
(comint-read-input-ring t)
(add-hook 'comint-preoutput-filter-functions
(lambda (string)
- (if (or (not (equal (buffer-name) lua-ts-inferior-buffer))
- (equal string
- (concat lua-ts-inferior-prompt-continue " ")))
+ (if (equal string (concat lua-ts-inferior-prompt-continue " "))
string
(concat
;; Filter out the extra prompt characters that
@@ -576,7 +574,8 @@ Calls REPORT-FN directly."
(group (* nonl))))
"\\1" string)
;; Re-add the prompt for the next line.
- lua-ts-inferior-prompt " "))))))
+ lua-ts-inferior-prompt " ")))
+ nil t)))
(select-window (display-buffer lua-ts-inferior-buffer
'((display-buffer-reuse-window
display-buffer-pop-up-frame)
--
2.39.5