309 |
(and (not (eq type 'MESSAGE)) |
(and (not (eq type 'MESSAGE)) |
310 |
(eq (car (memq func (cdr (assq type cvs-states)))) func)))) |
(eq (car (memq func (cdr (assq type cvs-states)))) func)))) |
311 |
|
|
312 |
(defun cvs-add-face (str face &optional keymap &rest properties) |
(defun cvs-add-face (str face &optional keymap &rest props) |
313 |
(add-text-properties 0 (length str) |
(when cvs-highlight |
314 |
(append |
(when keymap |
315 |
(list* 'font-lock-face face |
(when (keymapp keymap) |
316 |
(when keymap |
(setq props (list* 'keymap keymap props))) |
317 |
(list* 'mouse-face 'highlight |
(setq props (list* 'mouse-face 'highlight props))) |
318 |
(when (keymapp keymap) |
(setq props (list* 'font-lock-face face props))) |
319 |
(list 'keymap keymap))))) |
(when props (add-text-properties 0 (length str) props str)) |
|
properties) |
|
|
str) |
|
320 |
str) |
str) |
321 |
|
|
322 |
(defun cvs-fileinfo-pp (fileinfo) |
(defun cvs-fileinfo-pp (fileinfo) |
329 |
(case type |
(case type |
330 |
(DIRCHANGE (concat "In directory " |
(DIRCHANGE (concat "In directory " |
331 |
(cvs-add-face (cvs-fileinfo->full-path fileinfo) |
(cvs-add-face (cvs-fileinfo->full-path fileinfo) |
332 |
'cvs-header-face t) |
'cvs-header-face t |
333 |
|
'cvs-goal-column t) |
334 |
":")) |
":")) |
335 |
(MESSAGE |
(MESSAGE |
336 |
(cvs-add-face (format "Message: %s" (cvs-fileinfo->full-log fileinfo)) |
(cvs-add-face (format "Message: %s" (cvs-fileinfo->full-log fileinfo)) |