Mercurial > emacs
comparison lisp/term.el @ 56684:39cc1e82deb1
(term-default-fg-color, term-default-bg-color)
(ansi-term-color-vector): Use `unspecified', not nil, as default.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 16 Aug 2004 22:41:56 +0000 |
parents | 0b482d5702c7 |
children | bebd8a58e0f8 d8411455de48 |
comparison
equal
deleted
inserted
replaced
56683:dee43d88905e | 56684:39cc1e82deb1 |
---|---|
703 (defvar term-terminal-previous-parameter-4 -1) | 703 (defvar term-terminal-previous-parameter-4 -1) |
704 ;;; | 704 ;;; |
705 | 705 |
706 ;;; faces -mm | 706 ;;; faces -mm |
707 | 707 |
708 (defcustom term-default-fg-color nil | 708 (defcustom term-default-fg-color 'unspecified |
709 "Default color for foreground in `term'." | 709 "Default color for foreground in `term'." |
710 :group 'term | 710 :group 'term |
711 :type 'string) | 711 :type 'string) |
712 | 712 |
713 (defcustom term-default-bg-color nil | 713 (defcustom term-default-bg-color 'unspecified |
714 "Default color for background in `term'." | 714 "Default color for background in `term'." |
715 :group 'term | 715 :group 'term |
716 :type 'string) | 716 :type 'string) |
717 | 717 |
718 (defvar ansi-term-color-vector | 718 (defvar ansi-term-color-vector |
719 [nil "black" "red" "green" "yellow" "blue" | 719 [unspecified "black" "red" "green" "yellow" "blue" |
720 "magenta" "cyan" "white"]) | 720 "magenta" "cyan" "white"]) |
721 | 721 |
722 ;;; Inspiration came from comint.el -mm | 722 ;;; Inspiration came from comint.el -mm |
723 (defvar term-buffer-maximum-size 2048 | 723 (defvar term-buffer-maximum-size 2048 |
724 "*The maximum size in lines for term buffers. | 724 "*The maximum size in lines for term buffers. |
3078 (append '(:weight bold) term-current-face))) | 3078 (append '(:weight bold) term-current-face))) |
3079 (if (= term-ansi-current-underline 1) | 3079 (if (= term-ansi-current-underline 1) |
3080 (setq term-current-face | 3080 (setq term-current-face |
3081 (append '(:underline t) term-current-face)))))) | 3081 (append '(:underline t) term-current-face)))))) |
3082 | 3082 |
3083 ; (message "Debug %S" term-current-face) | 3083 ;;; (message "Debug %S" term-current-face) |
3084 | |
3085 (setq term-ansi-face-already-done 0)) | 3084 (setq term-ansi-face-already-done 0)) |
3086 | 3085 |
3087 | 3086 |
3088 ;;; Handle a character assuming (eq terminal-state 2) - | 3087 ;;; Handle a character assuming (eq terminal-state 2) - |
3089 ;;; i.e. we have previously seen Escape followed by ?[. | 3088 ;;; i.e. we have previously seen Escape followed by ?[. |