/[emacs]/emacs/lisp/term.el
ViewVC logotype

Diff of /emacs/lisp/term.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49.6.2 by handa, Fri Apr 16 12:50:10 2004 UTC revision 1.49.6.3 by miles, Fri Aug 27 07:00:26 2004 UTC
# Line 705  Buffer local variable.") Line 705  Buffer local variable.")
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
# Line 3078  See `term-prompt-regexp'." Line 3078  See `term-prompt-regexp'."
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    

Legend:
Removed from v.1.49.6.2  
changed lines
  Added in v.1.49.6.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26