emacs-diffs
[Top][All Lists]
Advanced

[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))
  
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]