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




reply via email to

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