The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
643f0bc
)
Prevent corruption of ansi interpreter state.
author
plugd
<plugd@thelambdalab.xyz>
Sat, 24 Jul 2021 20:59:18 +0000
(22:59 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Sat, 24 Jul 2021 20:59:18 +0000
(22:59 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
0888870
..
e3cf717
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-92,13
+92,13
@@
(lambda (s)
(let ((_xterm-color-render nil))
(xterm-color-filter s)))
(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)
"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
"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))
(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)
(setq-local network-security-level
(default-value 'network-security-level))
(erase-buffer)