[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/term.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term.el [lexbind] |
Date: |
Sat, 04 Sep 2004 05:47:43 -0400 |
Index: emacs/lisp/term.el
diff -c emacs/lisp/term.el:1.47.2.4 emacs/lisp/term.el:1.47.2.5
*** emacs/lisp/term.el:1.47.2.4 Sat Apr 10 06:15:01 2004
--- emacs/lisp/term.el Sat Sep 4 09:24:35 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))
- [Emacs-diffs] Changes to emacs/lisp/term.el [lexbind],
Miles Bader <=