/[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.54 by kfstorm, Mon Apr 5 21:34:05 2004 UTC revision 1.55 by rms, Mon Aug 16 22:41:56 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 3080  See `term-prompt-regexp'." Line 3080  See `term-prompt-regexp'."
3080                (setq term-current-face                (setq term-current-face
3081                      (append '(:underline t) term-current-face))))))                      (append '(:underline t) term-current-face))))))
3082    
3083  ;       (message "Debug %S" term-current-face)  ;;;     (message "Debug %S" term-current-face)
   
3084    (setq term-ansi-face-already-done 0))    (setq term-ansi-face-already-done 0))
3085    
3086    

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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