[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/term.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term.el |
Date: |
Mon, 16 Aug 2004 18:46:24 -0400 |
Index: emacs/lisp/term.el
diff -c emacs/lisp/term.el:1.54 emacs/lisp/term.el:1.55
*** emacs/lisp/term.el:1.54 Mon Apr 5 21:34:05 2004
--- emacs/lisp/term.el Mon Aug 16 22:41:56 2004
***************
*** 705,722 ****
;;; faces -mm
! (defcustom term-default-fg-color nil
"Default color for foreground in `term'."
:group 'term
:type 'string)
! (defcustom term-default-bg-color nil
"Default color for background in `term'."
:group 'term
:type 'string)
(defvar ansi-term-color-vector
! [nil "black" "red" "green" "yellow" "blue"
"magenta" "cyan" "white"])
;;; Inspiration came from comint.el -mm
--- 705,722 ----
;;; faces -mm
! (defcustom term-default-fg-color 'unspecified
"Default color for foreground in `term'."
:group 'term
:type 'string)
! (defcustom term-default-bg-color 'unspecified
"Default color for background in `term'."
:group 'term
:type 'string)
(defvar ansi-term-color-vector
! [unspecified "black" "red" "green" "yellow" "blue"
"magenta" "cyan" "white"])
;;; Inspiration came from comint.el -mm
***************
*** 3080,3087 ****
(setq term-current-face
(append '(:underline t) term-current-face))))))
! ; (message "Debug %S" term-current-face)
!
(setq term-ansi-face-already-done 0))
--- 3080,3086 ----
(setq term-current-face
(append '(:underline t) term-current-face))))))
! ;;; (message "Debug %S" term-current-face)
(setq term-ansi-face-already-done 0))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/term.el,
Richard M . Stallman <=