((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
("^..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