Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Return #t from ansi-escapes-enabled? for $TERM rxvt-unicode-256color

Browse source
This commit is contained in:
Peter 2017-01-08 00:37:25 +01:00
parent 9fa8d8c1f0
commit a0b8409fe7
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/term/ansi.scm
View file

@ -385,9 +385,10 @@
;;> of the latter determines the initial value returned by ;;> of the latter determines the initial value returned by
;;> \scheme{(ansi-escapes-enabled?)}. If the value of \scheme{TERM} ;;> \scheme{(ansi-escapes-enabled?)}. If the value of \scheme{TERM}
;;> is \scheme{"xterm"}, \scheme{"xterm-color"}, \scheme{"xterm-256color"}, ;;> is \scheme{"xterm"}, \scheme{"xterm-color"}, \scheme{"xterm-256color"},
;;> \scheme{"rxvt"}, \scheme{"kterm"}, \scheme{"linux"}, \scheme{"screen"}, ;;> \scheme{"rxvt"}, \scheme{"rxvt-unicode-256color"}, \scheme{"kterm"},
;;> \scheme{"screen-256color"}, or \scheme{"vt100"}, the initial value ;;> \scheme{"linux"}, \scheme{"screen"}, \scheme{"screen-256color"},
;;> is \scheme{#t}, otherwise the initial value is \scheme{#f}. ;;> or \scheme{"vt100"}, the initial value is \scheme{#t}, otherwise
;;> the initial value is \scheme{#f}.
;;> ;;>
;;> If neither of the environment variables \scheme{ANSI_ESCAPES_ENABLED} ;;> If neither of the environment variables \scheme{ANSI_ESCAPES_ENABLED}
;;> and \scheme{TERM} are set, the initial value returned by ;;> and \scheme{TERM} are set, the initial value returned by
@ -401,7 +402,8 @@
(else (else
(member (get-environment-variable "TERM") (member (get-environment-variable "TERM")
'("xterm" "xterm-color" "xterm-256color" "rxvt" "kterm" '("xterm" "xterm-color" "xterm-256color" "rxvt" "kterm"
"linux" "screen" "screen-256color" "vt100")))))) "linux" "screen" "screen-256color" "vt100"
"rxvt-unicode-256color"))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;