/[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.10 by walters, Sat Jun 15 19:04:57 2002 UTC revision 1.11 by monnier, Tue Jun 18 21:47:41 2002 UTC
# Line 309  FI-OR-TYPE can either be a symbol (a fil Line 309  FI-OR-TYPE can either be a symbol (a fil
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)
# Line 331  For use by the cookie package." Line 329  For use by the cookie package."
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))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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