The Lambda Lab
/
projects
/
elpher.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Prevent corruption of ansi interpreter state.
[elpher.git]
/
elpher.el
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)