/[emacs]/emacs/lisp/pcvs-info.el
ViewVC logotype

Diff of /emacs/lisp/pcvs-info.el

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

revision 1.7 by pj, Mon Jul 16 07:46:48 2001 UTC revision 1.8 by rms, Mon Dec 31 20:28:40 2001 UTC
# Line 70  to confuse some users sometimes." Line 70  to confuse some users sometimes."
70    
71  (defface cvs-header-face  (defface cvs-header-face
72    '((((class color) (background dark))    '((((class color) (background dark))
73       (:foreground "lightyellow" :bold t))       (:foreground "lightyellow" :weight bold))
74      (((class color) (background light))      (((class color) (background light))
75       (:foreground "blue4" :bold t))       (:foreground "blue4" :weight bold))
76      (t (:bold t)))      (t (:weight bold)))
77    "PCL-CVS face used to highlight directory changes."    "PCL-CVS face used to highlight directory changes."
78    :group 'pcl-cvs)    :group 'pcl-cvs)
79    
# Line 91  to confuse some users sometimes." Line 91  to confuse some users sometimes."
91       (:foreground "red"))       (:foreground "red"))
92      (((class color) (background light))      (((class color) (background light))
93       (:foreground "red"))       (:foreground "red"))
94      (t (:italic t)))      (t (:slant italic)))
95    "PCL-CVS face used to highlight unknown file status."    "PCL-CVS face used to highlight unknown file status."
96    :group 'pcl-cvs)    :group 'pcl-cvs)
97    
# Line 109  to confuse some users sometimes." Line 109  to confuse some users sometimes."
109       (:foreground "orange"))       (:foreground "orange"))
110      (((class color) (background light))      (((class color) (background light))
111       (:foreground "orange"))       (:foreground "orange"))
112      (t (:italic t)))      (t (:slant italic)))
113    "PCL-CVS face used to highlight status of files needing action."    "PCL-CVS face used to highlight status of files needing action."
114    :group 'pcl-cvs)    :group 'pcl-cvs)
115    
116  (defface cvs-marked-face  (defface cvs-marked-face
117    '((((class color) (background dark))    '((((class color) (background dark))
118       (:foreground "green" :bold t))       (:foreground "green" :weight bold))
119      (((class color) (background light))      (((class color) (background light))
120       (:foreground "green3" :bold t))       (:foreground "green3" :weight bold))
121      (t (:bold t)))      (t (:weight bold)))
122    "PCL-CVS face used to highlight marked file indicator."    "PCL-CVS face used to highlight marked file indicator."
123    :group 'pcl-cvs)    :group 'pcl-cvs)
124    
125  (defface cvs-msg-face  (defface cvs-msg-face
126    '((t (:italic t)))    '((t (:slant italic)))
127    "PCL-CVS face used to highlight CVS messages."    "PCL-CVS face used to highlight CVS messages."
128    :group 'pcl-cvs)    :group 'pcl-cvs)
129    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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