From b545f35b46e3d18da31fe394a4911b1a418cff40 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 22 Apr 1994 07:30:30 +0000 Subject: [PATCH] (rmail-font-lock-keywords): New variable. (compilation-mode-font-lock-keywords): New variable. (font-lock-set-defaults): Use those vars in those modes. --- lisp/font-lock.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/lisp/font-lock.el b/lisp/font-lock.el index e2499856f43..bb6aeaa4166 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -442,6 +442,9 @@ This can take a while for large buffers." ((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 @@ This does a lot more highlighting.") ("^..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 -- 2.39.5