diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-22 07:30:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-22 07:30:30 +0000 |
| commit | b545f35b46e3d18da31fe394a4911b1a418cff40 (patch) | |
| tree | 6da5b47d6f77ce0f28da077adaa125da02ec3879 /lisp | |
| parent | 572986cdcd3b86a3e2f4b7c35e1ec97434a17bff (diff) | |
| download | emacs-b545f35b46e3d18da31fe394a4911b1a418cff40.tar.gz | |
(rmail-font-lock-keywords): New variable.
(compilation-mode-font-lock-keywords): New variable.
(font-lock-set-defaults): Use those vars in those modes.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/font-lock.el | 15 |
1 files changed, 15 insertions, 0 deletions
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 |