(mailrc-generic-mode): Highlight the `source' keyword.

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`  <pot@gnu.org>
+
+        * generic-x.el (mailrc-generic-mode): Highlight the `source' keyword.
+
 2001-11-22  Colin Walters  <walters@debian.org>
 
         * calc/calc-misc.el (report-calc-bug): Use `reporter-prompt-for-summary-p'.
@@ -6,7 +10,7 @@
 
 2001-11-22  Miles Bader  <miles@gnu.org>
 
-        * 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  <walters@debian.org>
@@ -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  <rms@gnu.org>
@@ -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.")