From: plugd <plugd@thelambdalab.xyz>
Date: Sat, 24 Jul 2021 20:59:18 +0000 (+0200)
Subject: Prevent corruption of ansi interpreter state.
X-Git-Tag: v3.0.0~3
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=commitdiff_plain;h=af7102e6c6128a48eccf1bd1d6ba6a0aa8adedcf;ds=sidebyside

Prevent corruption of ansi interpreter state.
---

diff --git a/elpher.el b/elpher.el
index 0888870..e3cf717 100644
--- a/elpher.el
+++ b/elpher.el
@@ -92,13 +92,13 @@
       (lambda (s)
         (let ((_xterm-color-render nil))
           (xterm-color-filter s)))
-    'ansi-color-filter-apply)
+    #'ansi-color-filter-apply)
   "A function to filter out ANSI escape sequences.")
 
 (defalias 'elpher-color-apply
   (if (fboundp 'xterm-color-filter)
-      'xterm-color-filter
-    'ansi-color-apply)
+      #'xterm-color-filter
+    #'ansi-color-apply)
   "A function to apply ANSI escape sequences.")
 
 ;;; Global constants
@@ -600,7 +600,8 @@ previously-visited pages,unless NO-HISTORY is non-nil."
      (unless (eq major-mode 'elpher-mode)
        ;; avoid resetting buffer-local variables
        (elpher-mode))
-     (let ((inhibit-read-only t))
+     (let ((inhibit-read-only t)
+           (ansi-color-context nil)) ;; clean ansi interpreter state
        (setq-local network-security-level
                    (default-value 'network-security-level))
        (erase-buffer)