Mercurial > emacs
changeset 7018:aa83a7152b11
(rmail-font-lock-keywords): New variable.
(compilation-mode-font-lock-keywords): New variable.
(font-lock-set-defaults): Use those vars in those modes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 22 Apr 1994 07:30:30 +0000 |
| parents | 6884e6e907c9 |
| children | 74edb669a7e9 |
| files | lisp/font-lock.el |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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