From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Sat, 8 Dec 2007 14:32:28 +0000 (+0000)
Subject: (etc-sudoers-generic-mode): New mode.
X-Git-Tag: emacs-pretest-23.0.90~9012
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f33ef98e1ba8307bc12dbb739236df34056bf93;p=emacs.git

(etc-sudoers-generic-mode): New mode.
(generic-unix-modes): Add it.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3b59a1db8f..31ed800f678 100644
--- 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 f400b299b9e..f9f3b923f26 100644
--- 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)