So that I don't look like I'm always submitting bugs, here's a vc suggestion. ;) I submitted this patch to the regular xemacs mailing list, but didn't hear anything. In any case, I find this useful. It highlights the RCS/CVS text in the modeline if the file is checked out. Much easier to detect a changed file instead of looking for a "-" vs. a ":" in the modeline. It's currently defined as a defadvice. Thanks, Albert (when xemacs-p (defvar vc-mode-ext (detach-extent (make-extent 0 0 ""))) (set-extent-face vc-mode-ext 'highlight) (defadvice vc-mode-line (after highlight activate) "highlight CVS/RCS tag if file is modified locally" (let* ((str vc-mode) (hdr "^ \\(CVS\\|RCS\\)") (locked-hdr (concat hdr "-"))) (when (and str ;; initial version may start with nil (string-match hdr str) (not (string-match locked-hdr str))) (let ((substr (substring str 1))) ;; normally modeline displays whatever is in the minor-mode-alist, ;; indexed by mode. The cdr can be either a string or (extent ;; . str) or a list of them. vc-mode is normally set to a string. ;; Change the variable to specify an extent, preceded by a regular ;; space (setq vc-mode (list " " (cons vc-mode-ext substr))))))) )