/[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.22 by monnier, Tue Apr 26 20:35:42 2005 UTC revision 1.23 by miles, Fri Jun 10 09:06:16 2005 UTC
# Line 61  to confuse some users sometimes." Line 61  to confuse some users sometimes."
61  ;;;; Faces for fontification  ;;;; Faces for fontification
62  ;;;;  ;;;;
63    
64  (defface cvs-header-face  (defface cvs-header
65    '((((class color) (background dark))    '((((class color) (background dark))
66       (:foreground "lightyellow" :weight bold))       (:foreground "lightyellow" :weight bold))
67      (((class color) (background light))      (((class color) (background light))
# Line 69  to confuse some users sometimes." Line 69  to confuse some users sometimes."
69      (t (:weight bold)))      (t (:weight bold)))
70    "PCL-CVS face used to highlight directory changes."    "PCL-CVS face used to highlight directory changes."
71    :group 'pcl-cvs)    :group 'pcl-cvs)
72    ;; backward-compatibility alias
73    (put 'cvs-header-face 'face-alias 'cvs-header)
74    
75  (defface cvs-filename-face  (defface cvs-filename
76    '((((class color) (background dark))    '((((class color) (background dark))
77       (:foreground "lightblue"))       (:foreground "lightblue"))
78      (((class color) (background light))      (((class color) (background light))
# Line 78  to confuse some users sometimes." Line 80  to confuse some users sometimes."
80      (t ()))      (t ()))
81    "PCL-CVS face used to highlight file names."    "PCL-CVS face used to highlight file names."
82    :group 'pcl-cvs)    :group 'pcl-cvs)
83    ;; backward-compatibility alias
84    (put 'cvs-filename-face 'face-alias 'cvs-filename)
85    
86  (defface cvs-unknown-face  (defface cvs-unknown
87    '((((class color) (background dark))    '((((class color) (background dark))
88       (:foreground "red"))       (:foreground "red"))
89      (((class color) (background light))      (((class color) (background light))
# Line 87  to confuse some users sometimes." Line 91  to confuse some users sometimes."
91      (t (:slant italic)))      (t (:slant italic)))
92    "PCL-CVS face used to highlight unknown file status."    "PCL-CVS face used to highlight unknown file status."
93    :group 'pcl-cvs)    :group 'pcl-cvs)
94    ;; backward-compatibility alias
95    (put 'cvs-unknown-face 'face-alias 'cvs-unknown)
96    
97  (defface cvs-handled-face  (defface cvs-handled
98    '((((class color) (background dark))    '((((class color) (background dark))
99       (:foreground "pink"))       (:foreground "pink"))
100      (((class color) (background light))      (((class color) (background light))
# Line 96  to confuse some users sometimes." Line 102  to confuse some users sometimes."
102      (t ()))      (t ()))
103    "PCL-CVS face used to highlight handled file status."    "PCL-CVS face used to highlight handled file status."
104    :group 'pcl-cvs)    :group 'pcl-cvs)
105    ;; backward-compatibility alias
106    (put 'cvs-handled-face 'face-alias 'cvs-handled)
107    
108  (defface cvs-need-action-face  (defface cvs-need-action
109    '((((class color) (background dark))    '((((class color) (background dark))
110       (:foreground "orange"))       (:foreground "orange"))
111      (((class color) (background light))      (((class color) (background light))
# Line 105  to confuse some users sometimes." Line 113  to confuse some users sometimes."
113      (t (:slant italic)))      (t (:slant italic)))
114    "PCL-CVS face used to highlight status of files needing action."    "PCL-CVS face used to highlight status of files needing action."
115    :group 'pcl-cvs)    :group 'pcl-cvs)
116    ;; backward-compatibility alias
117    (put 'cvs-need-action-face 'face-alias 'cvs-need-action)
118    
119  (defface cvs-marked-face  (defface cvs-marked
120    '((((min-colors 88) (class color) (background dark))    '((((min-colors 88) (class color) (background dark))
121       (:foreground "green1" :weight bold))       (:foreground "green1" :weight bold))
122      (((class color) (background dark))      (((class color) (background dark))
# Line 116  to confuse some users sometimes." Line 126  to confuse some users sometimes."
126      (t (:weight bold)))      (t (:weight bold)))
127    "PCL-CVS face used to highlight marked file indicator."    "PCL-CVS face used to highlight marked file indicator."
128    :group 'pcl-cvs)    :group 'pcl-cvs)
129    ;; backward-compatibility alias
130    (put 'cvs-marked-face 'face-alias 'cvs-marked)
131    
132  (defface cvs-msg-face  (defface cvs-msg
133    '((t (:slant italic)))    '((t (:slant italic)))
134    "PCL-CVS face used to highlight CVS messages."    "PCL-CVS face used to highlight CVS messages."
135    :group 'pcl-cvs)    :group 'pcl-cvs)
136    ;; backward-compatibility alias
137    (put 'cvs-msg-face 'face-alias 'cvs-msg)
138    
139  (defvar cvs-fi-up-to-date-face 'cvs-handled-face)  (defvar cvs-fi-up-to-date-face 'cvs-handled)
140  (defvar cvs-fi-unknown-face 'cvs-unknown-face)  (defvar cvs-fi-unknown-face 'cvs-unknown)
141  (defvar cvs-fi-conflict-face 'font-lock-warning-face)  (defvar cvs-fi-conflict-face 'font-lock-warning-face)
142    
143  ;; There is normally no need to alter the following variable, but if  ;; There is normally no need to alter the following variable, but if
# Line 332  For use by the cookie package." Line 346  For use by the cookie package."
346       (case type       (case type
347         (DIRCHANGE (concat "In directory "         (DIRCHANGE (concat "In directory "
348                            (cvs-add-face (cvs-fileinfo->full-name fileinfo)                            (cvs-add-face (cvs-fileinfo->full-name fileinfo)
349                                          'cvs-header-face t                                          'cvs-header t 'cvs-goal-column t)
                                         'cvs-goal-column t)  
350                            ":"))                            ":"))
351         (MESSAGE         (MESSAGE
352          (cvs-add-face (format "Message: %s" (cvs-fileinfo->full-log fileinfo))          (cvs-add-face (format "Message: %s" (cvs-fileinfo->full-log fileinfo))
353                        'cvs-msg-face))                        'cvs-msg))
354         (t         (t
355          (let* ((status (if (cvs-fileinfo->marked fileinfo)          (let* ((status (if (cvs-fileinfo->marked fileinfo)
356                             (cvs-add-face "*" 'cvs-marked-face)                             (cvs-add-face "*" 'cvs-marked)
357                           " "))                           " "))
358                 (file (cvs-add-face (cvs-fileinfo->pp-name fileinfo)                 (file (cvs-add-face (cvs-fileinfo->pp-name fileinfo)
359                                     'cvs-filename-face t                                     'cvs-filename t 'cvs-goal-column t))
                                    'cvs-goal-column t))  
360                 (base (or (cvs-fileinfo->base-rev fileinfo) ""))                 (base (or (cvs-fileinfo->base-rev fileinfo) ""))
361                 (head (cvs-fileinfo->head-rev fileinfo))                 (head (cvs-fileinfo->head-rev fileinfo))
362                 (type                 (type
# Line 357  For use by the cookie package." Line 369  For use by the cookie package."
369                                                  (downcase (symbol-name type))                                                  (downcase (symbol-name type))
370                                                  "-face"))))                                                  "-face"))))
371                                (or (and (boundp sym) (symbol-value sym))                                (or (and (boundp sym) (symbol-value sym))
372                                    'cvs-need-action-face))))                                    'cvs-need-action))))
373                    (cvs-add-face str face cvs-status-map)))                    (cvs-add-face str face cvs-status-map)))
374                 (side (or                 (side (or
375                        ;; maybe a subtype                        ;; maybe a subtype

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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