/[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.8 by rms, Mon Dec 31 20:28:40 2001 UTC revision 1.9 by kai, Wed Apr 3 16:56:36 2002 UTC
# Line 318  FI-OR-TYPE can either be a symbol (a fil Line 318  FI-OR-TYPE can either be a symbol (a fil
318      (and (not (eq type 'MESSAGE))      (and (not (eq type 'MESSAGE))
319           (eq (car (memq func (cdr (assq type cvs-states)))) func))))           (eq (car (memq func (cdr (assq type cvs-states)))) func))))
320    
321  (defun cvs-add-face (str face &optional keymap)  (defun cvs-add-face (str face &optional keymap &rest properties)
322    (when cvs-highlight    (when (or cvs-highlight properties)
323      (add-text-properties 0 (length str)      (add-text-properties 0 (length str)
324                           (list* 'face face                           (append
325                                  (when keymap                            (when cvs-highlight
326                                    (list* 'mouse-face 'highlight                              (list* 'face face
327                                           (when (keymapp keymap)                                     (when keymap
328                                             (list 'keymap keymap)))))                                       (list* 'mouse-face 'highlight
329                                                (when (keymapp keymap)
330                                                  (list 'keymap keymap))))))
331                              properties)
332                           str))                           str))
333    str)    str)
334    
# Line 349  For use by the cookie package." Line 352  For use by the cookie package."
352                             (cvs-add-face "*" 'cvs-marked-face)                             (cvs-add-face "*" 'cvs-marked-face)
353                           " "))                           " "))
354                 (file (cvs-add-face (cvs-fileinfo->pp-name fileinfo)                 (file (cvs-add-face (cvs-fileinfo->pp-name fileinfo)
355                                     'cvs-filename-face t))                                     'cvs-filename-face t
356                                       'cvs-goal-column t))
357                 (base (or (cvs-fileinfo->base-rev fileinfo) ""))                 (base (or (cvs-fileinfo->base-rev fileinfo) ""))
358                 (head (cvs-fileinfo->head-rev fileinfo))                 (head (cvs-fileinfo->head-rev fileinfo))
359                 (type                 (type
# Line 371  For use by the cookie package." Line 375  For use by the cookie package."
375                        (when (and head (not (string= head base))) head)                        (when (and head (not (string= head base))) head)
376                        ;; or nothing                        ;; or nothing
377                        "")))                        "")))
378            (format "%-11s %s %-11s %-11s %s"             (format "%-11s %s %-11s %-11s %s"
379                    side status type base file)))))))                     side status type base file)))))))
380    
381    
382  (defun cvs-fileinfo-update (fi fi-new)  (defun cvs-fileinfo-update (fi fi-new)

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

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