Fix the highly losing font locking.. greg 1998-04-24 Greg Klanderman <greg(a)alphatech.com&gt; * pcl-cvs-xemacs.el (pcl-cvs-font-lock-keywords): fix these so they work reasonably. --- pcl-cvs-xemacs.el Wed Jan 14 01:44:45 1998 +++ /home/greg/emacs/xemacs-20.5/pcl-cvs-xemacs.el Wed Apr 22 13:58:54 1998 ＠＠ -108,12 +108,37 ＠＠ (looking-at "^[* ] "))))) (mode-motion-highlight-line event))) +(defconst pcl-cvs-status-list + '("Updated" + "Patched" + "Modified" + "Merged" + "Conflict" + "Added" + "Removed" + "Unknown dir" + "Unknown" + "Removed from repository:" + "Conflict: Removed from repository, changed by you:" + "Conflict: Removed by you, changed in repository:" + "Conflict: Removed by you, but still exists:") + "List of status values in pcl-cvs") + (defconst pcl-cvs-font-lock-keywords - '(("^In directory \\(.+\\)$" 1 cvs-header-face) - ("^[* ] \\w+ +\\(ci\\)" 1 cvs-status-face) - ("^[* ] \\(Conflict\\|Merged\\)" 1 cvs-status-face) - ("^[* ] \\w+ +\\(ci +\\)?\\(.+\\)$" 2 cvs-filename-face) - ) + (let ((file-line (concat "^[* ] \\(\\(" + (mapconcat 'identity + pcl-cvs-status-list + "\\|") + "\\)\\( +ci\\)?\\)\\(.+\\)$")) + (move-away "\\(Move away\\) \\(.*\\) \\(- it is in the way\\)")) + `(("^In directory \\(.+\\)[:]$" 1 cvs-header-face) + (,file-line 1 cvs-status-face) + (,file-line 4 cvs-filename-face) + (,move-away 1 cvs-status-face) + (,move-away 3 cvs-status-face) + (,move-away 2 cvs-filename-face) + ("This repository directory is missing! Remove this directory manually." + 0 cvs-status-face))) "Patterns to highlight in the *cvs* buffer.") ;;;###autoload