Commits

Anonymous committed fdc9a89

2001-07-14 Steve Youngs <youngs@xemacs.org>

* ibuffer.el: Replaced with newer version that was in
xemacs-devel.

2001-07-14 Kevin Gallagher <kevingal@onramp.net>

* Import version 4.0.

2001-06-06 Mark Thomas <mthomas@edrc.cmu.edu>

* nnmail.el (nnmail-fix-eudora-headers): Change the In-Reply-To
fix so it works with older versions of XEmacs.

2001-07-14 Steve Youngs <youngs@xemacs.org>

* emacsbug.el (report-emacs-bug-address): Change address to
xemacs-beta@xemacs.org.

2001-06-06 Raymond Toy <toy@rtp.ericsson.se>

* cvs-edit.el (cvs-edit-done): Check for a null vc-comment-ring
and initialize if necessary.

2001-06-21 Jeff Mincy <jeff@delphioutpost.com>

* diff-mode.el (vc-backend-diff): Fix when default-major-mode is text-mode,
also enabled font-lock

2001-07-14 I. Sheldon <is@kaidea.freeserve.co.uk>

* vc.el (vc-populate-vc-log-hook): New.
(vc-log-template): New.
(vc-start-entry): Use vc-populate-vc-log-hook.
(vc-populate-vc-log-with-template): New.
(vc-populate-vc-log-with-goto-first-eol): New.

2001-07-14 Steve Youngs <youngs@xemacs.org>

* ibuffer.el: Move to edit-utils package.

* Makefile (ELCS): Remove ibuffer.elc

2001-06-16 Simon Josefsson <jas@extundo.com>

* zenirc.el (zenirc-font-lock-keywords): Some font-lock defaults.
(toplevel): Put font-lock-defaults on mode.
(zenirc-mode): Allow font-lock initialization.

Comments (0)

Files changed (2)

+2001-06-16  Simon Josefsson  <jas@extundo.com>
+
+	* zenirc.el (zenirc-font-lock-keywords): Some font-lock defaults.
+	(toplevel): Put font-lock-defaults on mode.
+	(zenirc-mode): Allow font-lock initialization.
+
 2000-10-05  Martin Buchholz  <martin@xemacs.org>
 
 	* *: Mega typo fix.
 (defvar zenirc-server-501-hook '(zenirc-server-501))
 (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.")
+ 
+(put 'zenirc-mode 'font-lock-defaults
+     '(zenirc-font-lock-keywords nil nil ((?_ . "w"))))
+
 
 (defun zenirc-mode ()
   "Major mode for wasting major time on IRC."
            (zenirc-current-victim ("->" zenirc-current-victim))
            " "
            "%-"))
+  (font-lock-set-defaults)
   (zenirc-run-hook 'zenirc-mode-hook))