Font-lock patches for zenirc

This patch adds nice (for some value of `nice') colors to your Zenirc buffer.

Patch also available in raw form.

1999-07-31  Simon Josefsson  

	* zenirc.el (zenirc-font-lock-keywords): New variable.
	(zenirc-mode): Bind it to `font-lock-defaults'.

diff -ru zenirc-2.112.orig/src/zenirc.el zenirc-2.112/src/zenirc.el
--- zenirc-2.112.orig/src/zenirc.el	Thu May  7 11:48:58 1998
+++ zenirc-2.112/src/zenirc.el	Tue Feb 20 15:24:57 2001
@@ -590,6 +590,15 @@
 (defvar zenirc-server-502-hook '(zenirc-server-502))
 
 
+(defvar zenirc-font-lock-keywords
+  '(("^\\[\\([^]]+\\)\\].*" 1 font-lock-type-face)
+    ("^\\[[^]]+\\]\\(.*\\)$" 1 font-lock-comment-face)
+    ("^<\\([^>!]+\\)[^>]+>" 1 font-lock-keyword-face)
+    ("^<[^>!]+!\\([^#>]+\\)[^>]+>" 1 font-lock-string-face)
+    ("^<[^>#]+\\(#[^>]+\\)>" 1 font-lock-function-name-face)
+    ("^<[^>]+> \\([^ :]+:\\)" 1 font-lock-keyword-face))
+  "Default expressions to highlight in zenirc mode.")
+
 (defun zenirc-mode ()
   "Major mode for wasting major time on IRC."
   (kill-all-local-variables)
@@ -616,6 +625,8 @@
            (zenirc-current-victim ("->" zenirc-current-victim))
            " "
            "%-"))
+  (make-local-variable 'font-lock-defaults)
+  (setq font-lock-defaults '(zenirc-font-lock-keywords t))
   (zenirc-run-hook 'zenirc-mode-hook))