diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-30 10:41:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-30 10:41:53 +0000 |
| commit | ed9d4b0a393cc3966920db74a72836ddca17a4b7 (patch) | |
| tree | bea45918f7572c74b58a2ef6b60e571342b7c05d /lisp/font-lock.el | |
| parent | 274d13877428f6d69ffe73ce37645acd7781698b (diff) | |
| download | emacs-ed9d4b0a393cc3966920db74a72836ddca17a4b7.tar.gz | |
(shell-font-lock-keywords): Removed regexp for commands.
(rmail-summary-font-lock-keywords): New variable.
(font-lock-set-defaults): Use it.
Diffstat (limited to 'lisp/font-lock.el')
| -rw-r--r-- | lisp/font-lock.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index da7373db79f..e6f6512e4df 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -662,8 +662,6 @@ This does a lot more highlighting.") (defvar shell-font-lock-keywords (list (cons shell-prompt-pattern 'font-lock-keyword-face) - (list (concat shell-prompt-pattern "\\([^ \t]+\\)") - 1 'font-lock-function-name-face) '("[ \t]\\([+-][^ \t\n]+\\)" 1 font-lock-comment-face) '("^[^ \t]+:.*$" . font-lock-string-face) '("^\\[[1-9][0-9]*\\]" . font-lock-string-face)) @@ -687,6 +685,11 @@ This does a lot more highlighting.") ("^Subject: \\(.*\\)$" 1 font-lock-function-name-face)) "Additional expressions to highlight in Rmail mode.") +(defvar rmail-summary-font-lock-keywords + '(("^\\s *[0-9]+D.*$" . font-lock-doc-string-face) + ("^\\s *[0-9]+-.*$" . font-lock-keyword-face)) + "Additional expressions to highlight in Rmail Summary 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) @@ -709,6 +712,8 @@ This does a lot more highlighting.") ((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 'rmail-summary-mode) + rmail-summary-font-lock-keywords) ((eq major-mode 'compilation-mode) compilation-mode-font-lock-keywords) (t nil))))) |