diff options
| author | Karl Heuer | 1999-07-20 01:46:01 +0000 |
|---|---|---|
| committer | Karl Heuer | 1999-07-20 01:46:01 +0000 |
| commit | 9b80213097501f0fc0dd1fa65af403e0492f7660 (patch) | |
| tree | dd2b77980e488a7e67e7658212ee54ad1eda82c3 | |
| parent | 9e5453507c194febb47d67c354fcbedeb44079b2 (diff) | |
| download | emacs-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.el | 10 |
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 |