Hi, here is a patch which provides basic syntax hilighting for the clearcase-edcs-mode. For me it works fine with XEmacs 21.4.22 and 21.5.32. Maybe you or others find it useful. Feel free to improve the patch. Regards, Thomas Viehweger --- clearcase-orig.el 2013-04-29 22:48:14.244524657 +0200 +++ clearcase.el 2013-04-29 22:50:01.153937998 +0200 ＠＠ -1570,6 +1570,8 ＠＠ the user to edit." (make-variable-buffer-local 'clearcase-parent-buffer) (set-buffer-modified-p nil) (setq buffer-file-name nil) + (set (make-local-variable 'font-lock-defaults) + '(clearcase-edcs-font-lock-keywords nil t nil)) (run-hooks 'text-mode-hook 'clearcase-edcs-mode-hook)) ;; The keymap. ＠＠ -1589,6 +1591,14 ＠＠ the user to edit." (defvar clearcase-edcs-tag-history () "History of view tags used in clearcase-edcs-edit") +(defvar clearcase-edcs-font-lock-keywords + (eval-when-compile + (list + '( "#.*" . font-lock-comment-face) + '( "\\<\\(e\\(lement\\|nd\\)\\|include\\|load\\|mkbranch\\|time\\)\\>" (1 font-lock-builtin-face)) + '( "[ \t]+-[a-zA-Z0-9_]+" . font-lock-type-face) +))) + ;;{{{ Commands (defun clearcase-edcs-edit (tag-name) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches