# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766999830 0
# Node ID aa83a7152b1196b24ef33f985da89ac47d9c4dd5
# Parent  6884e6e907c9fd837d7a4e575e4eb4979ff535dd
(rmail-font-lock-keywords): New variable.
(compilation-mode-font-lock-keywords): New variable.
(font-lock-set-defaults): Use those vars in those modes.

diff -r 6884e6e907c9 -r aa83a7152b11 lisp/font-lock.el
--- a/lisp/font-lock.el	Fri Apr 22 04:37:36 1994 +0000
+++ b/lisp/font-lock.el	Fri Apr 22 07:30:30 1994 +0000
@@ -442,6 +442,9 @@
 		  ((eq major-mode 'texinfo-mode)    texi-font-lock-keywords)
 		  ((eq major-mode 'shell-mode)      shell-font-lock-keywords)
 		  ((eq major-mode 'dired-mode)      dired-font-lock-keywords)
+		  ((eq major-mode 'rmail-mode)      rmail-font-lock-keywords)
+		  ((eq major-mode 'compilation-mode)
+		   compilation-mode-font-lock-keywords)
 		  (t nil)))))
 
 (defconst lisp-font-lock-keywords-1
@@ -687,6 +690,18 @@
     ("^..d.* \\([^ ]+\\)$" 1 font-lock-keyword-face))
   "Additional expressions to highlight in Dired mode.")
 
+(defvar rmail-font-lock-keywords
+  '(;; Put From field in bold.
+    ("^From: \\(.*\\)$" 1 font-lock-keyword-face)
+    ;; Put subject in bold italics
+    ("^Subject: \\(.*\\)$" 1 font-lock-function-name-face))
+  "Additional expressions to highlight in Rmail mode.")
+
+(defvar compilation-mode-font-lock-keywords
+  '(("^\\([^\n:]*:\\([0-9]+:\\)+\\)\\(.*\\)$" 1 font-lock-function-name-face))
+;;;  ("^\\([^\n:]*:\\([0-9]+:\\)+\\)\\(.*\\)$" 0 font-lock-keyword-face keep)
+  "Additional expressions to highlight in Compilation mode.")
+
 (provide 'font-lock)
 
 ;;; font-lock.el ends here