From 5d1c524737d1eb905a89c3b4ab465dec21285496 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Francesco=20Potort=C3=AC?= Date: Fri, 23 Nov 2001 09:36:24 +0000 Subject: [PATCH] (mailrc-generic-mode): Highlight the `source' keyword. --- lisp/ChangeLog | 10 +++++++--- lisp/generic-x.el | 5 ++++- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d26828f19e2..dadc21c3906 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2001-11-23 Francesco Potorti` + + * generic-x.el (mailrc-generic-mode): Highlight the `source' keyword. + 2001-11-22 Colin Walters * calc/calc-misc.el (report-calc-bug): Use `reporter-prompt-for-summary-p'. @@ -6,7 +10,7 @@ 2001-11-22 Miles Bader - * emacs-lisp/re-builder.el (reb-match-0, reb-match-1) + * emacs-lisp/re-builder.el (reb-match-0, reb-match-1) (reb-match-2, reb-match-3): Add dark-background variants. 2001-11-22 Colin Walters @@ -14,7 +18,7 @@ * calc/calc-misc.el (calc-info): Don't perform voodoo, just (info "Calc"). (report-calc-bug): Use reporter.el. - + * mail/reporter.el (reporter-submit-bug-report): Doc fixes. 2001-11-21 Richard M. Stallman @@ -25,7 +29,7 @@ (which-func-update): Handle all visible windows. (which-func-update-1): New subroutine broken out of which-func-update. - * files.el (temporary-file-directory, null-device) + * files.el (temporary-file-directory, null-device) (small-temporary-file-directory): Definitions moved up. * progmodes/cperl-mode.el (cperl-problems, cperl-tips) diff --git a/lisp/generic-x.el b/lisp/generic-x.el index 8335cf038f0..7b2c86a7c7b 100644 --- a/lisp/generic-x.el +++ b/lisp/generic-x.el @@ -1482,12 +1482,15 @@ you must reload generic-x to enable the specified modes." "if" "ignore" "set" + "source" "unset" ) '(("^\\s-*\\(alias\\|group\\)\\s-+\\([-A-Za-z0-9_]+\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$" (2 font-lock-constant-face) (3 font-lock-variable-name-face)) ("^\\s-*\\(unset\\|set\\|ignore\\)\\s-+\\([-A-Za-z0-9_]+\\)=?\\([^\n\r#]*\\)\\(#.*\\)?$" - (2 font-lock-constant-face) (3 font-lock-variable-name-face))) + (2 font-lock-constant-face) (3 font-lock-variable-name-face)) + ("^\\s-*\\(source\\)\\s-+\\([^\n\r#]*\\)\\(#.*\\)?$" + (2 font-lock-variable-name-face))) (list "\\.mailrc\\'") nil "Mode for mailrc files.") -- 2.39.2