diff options
| author | jao <jao@gnu.org> | 2026-04-26 01:16:54 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-04-26 01:16:54 +0100 |
| commit | 2e9d5e04e7ddf2727555c74c468bd009ecbdbd92 (patch) | |
| tree | b1c89314d35c221ab162f13eab44627c69bd30c4 | |
| parent | 7bb18cd896e736fb90a0b5c2f945331fcabf0fbb (diff) | |
| download | geiser-2e9d5e04e7ddf2727555c74c468bd009ecbdbd92.tar.gz geiser-2e9d5e04e7ddf2727555c74c468bd009ecbdbd92.tar.bz2 | |
cleaning ansi colours also in the repl (#74)
| -rw-r--r-- | elisp/geiser-repl.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 84ff8ce..30f2eb3 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -24,6 +24,7 @@ (require 'geiser-custom) (require 'geiser-base) +(require 'ansi-color) (require 'comint) (require 'compile) (require 'scheme) @@ -1137,6 +1138,7 @@ buffer." (set (make-local-variable 'comint-prompt-read-only) geiser-repl-read-only-prompt-p) (setq comint-process-echoes nil) + (add-hook 'comint-preoutput-filter-functions 'ansi-color-filter-apply) (set (make-local-variable 'beginning-of-defun-function) 'geiser-repl--beginning-of-defun) (set (make-local-variable 'comint-input-ignoredups) |