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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d26828f19e26be07ec5500266e535fe06aee261a..dadc21c39068141c1cfb28c6b03e6e39d8677f9c 100644 (file)
--- 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 8335cf038f0a9cbc4187918fab6686bbfbf7f6b5..7b2c86a7c7b0446d46ca6a48e0568c8c89c26974 100644 (file)
--- 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.")