705 |
|
|
706 |
;;; faces -mm |
;;; faces -mm |
707 |
|
|
708 |
(defcustom term-default-fg-color nil |
(defcustom term-default-fg-color 'unspecified |
709 |
"Default color for foreground in `term'." |
"Default color for foreground in `term'." |
710 |
:group 'term |
:group 'term |
711 |
:type 'string) |
:type 'string) |
712 |
|
|
713 |
(defcustom term-default-bg-color nil |
(defcustom term-default-bg-color 'unspecified |
714 |
"Default color for background in `term'." |
"Default color for background in `term'." |
715 |
:group 'term |
:group 'term |
716 |
:type 'string) |
:type 'string) |
717 |
|
|
718 |
(defvar ansi-term-color-vector |
(defvar ansi-term-color-vector |
719 |
[nil "black" "red" "green" "yellow" "blue" |
[unspecified "black" "red" "green" "yellow" "blue" |
720 |
"magenta" "cyan" "white"]) |
"magenta" "cyan" "white"]) |
721 |
|
|
722 |
;;; Inspiration came from comint.el -mm |
;;; Inspiration came from comint.el -mm |
3078 |
(setq term-current-face |
(setq term-current-face |
3079 |
(append '(:underline t) term-current-face)))))) |
(append '(:underline t) term-current-face)))))) |
3080 |
|
|
3081 |
; (message "Debug %S" term-current-face) |
;;; (message "Debug %S" term-current-face) |
|
|
|
3082 |
(setq term-ansi-face-already-done 0)) |
(setq term-ansi-face-already-done 0)) |
3083 |
|
|
3084 |
|
|