Commit b545f35b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-font-lock-keywords): New variable.

(compilation-mode-font-lock-keywords): New variable.
(font-lock-set-defaults): Use those vars in those modes.
parent 572986cd
......@@ -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)
(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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment