aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1999-07-20 01:46:01 +0000
committerKarl Heuer1999-07-20 01:46:01 +0000
commit9b80213097501f0fc0dd1fa65af403e0492f7660 (patch)
treedd2b77980e488a7e67e7658212ee54ad1eda82c3
parent9e5453507c194febb47d67c354fcbedeb44079b2 (diff)
downloademacs-9b80213097501f0fc0dd1fa65af403e0492f7660.tar.gz
emacs-9b80213097501f0fc0dd1fa65af403e0492f7660.zip
(ansi-term-fg-faces-vector): Added support for ANSI
color codes 39 and 49, which by the way lynx uses them seem to mean "foreground reset" and "background reset".
-rw-r--r--lisp/term.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/term.el b/lisp/term.el
index 262686cf9f2..e8e584d2152 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -3040,12 +3040,22 @@ See `term-prompt-regexp'."
3040 ((eq parameter 8) 3040 ((eq parameter 8)
3041 (setq term-ansi-current-invisible 1)) 3041 (setq term-ansi-current-invisible 1))
3042 3042
3043;;; Foreground
3043 ((and (>= parameter 30) (<= parameter 37)) 3044 ((and (>= parameter 30) (<= parameter 37))
3044 (setq term-ansi-current-color (- parameter 29))) 3045 (setq term-ansi-current-color (- parameter 29)))
3045 3046
3047;;; Reset foreground
3048 ((eq parameter 39)
3049 (setq term-ansi-current-color 0))
3050
3051;;; Background
3046 ((and (>= parameter 40) (<= parameter 47)) 3052 ((and (>= parameter 40) (<= parameter 47))
3047 (setq term-ansi-current-bg-color (- parameter 39))) 3053 (setq term-ansi-current-bg-color (- parameter 39)))
3048 3054
3055;;; Reset background
3056 ((eq parameter 49)
3057 (setq term-ansi-current-bg-color 0))
3058
3049;;; 0 (Reset) or unknown (reset anyway) 3059;;; 0 (Reset) or unknown (reset anyway)
3050 (t 3060 (t
3051 (setq term-current-face 3061 (setq term-current-face