(etc-sudoers-generic-mode): New mode.

(generic-unix-modes): Add it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3b59a1db8f31e3391ed89b7a69fd244d99112f6..31ed800f678fa583f8c462d66a1b8308d9165237 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-08  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * generic-x.el (etc-sudoers-generic-mode): New mode.
+       (generic-unix-modes): Add it.
+
 2007-12-08  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/dbus.el (dbus-hash-table=): Remove function.  We cannot

diff --git a/lisp/generic-x.el b/lisp/generic-x.el
index f400b299b9ebf5d133efa10c0ca1125f3499a50e..f9f3b923f26dff546c0addde0175abd301bc6a8f 100644 (file)
--- a/lisp/generic-x.el
+++ b/lisp/generic-x.el
@@ -221,6 +221,7 @@ This hook will be installed if the variable
     etc-modules-conf-generic-mode
     etc-passwd-generic-mode
     etc-services-generic-mode
+    etc-sudoers-generic-mode
     fvwm-generic-mode
     inetd-conf-generic-mode
     mailagent-rules-generic-mode
@@ -1736,6 +1737,21 @@ like an INI file.  You can add this hook to `find-file-hook'."
       (setq imenu-generic-expression
            '((nil "^\\([^# \t]+\\)\\s-+" 1))))))))
 
+;; /etc/sudoers
+(when (memq 'etc-sudoers-generic-mode generic-extras-enable-list)
+
+(define-generic-mode etc-sudoers-generic-mode
+  '(?#)
+  '("User_Alias" "Runas_Alias" "Host_Alias"  "Cmnd_Alias"
+    "NOPASSWD" "PASSWD" "NOEXEC" "EXEC"
+    "ALL")
+  '(("\\<\\(root\\|su\\)\\>" 1 font-lock-warning-face)
+    ("\\(\\*\\)" 1 font-lock-warning-face)
+    ("\\<\\(%[A-Za-z0-9_]+\\)\\>" 1 font-lock-variable-name-face))
+  '("/etc/sudoers\\'")
+  nil
+  "Generic mode for sudoers configuration files."))
+
 ;; From Jacques Duthen <jacques.duthen@sncf.fr>
 (when (memq 'show-tabs-generic-mode generic-extras-enable-list)