* lisp/generic-x.el (xmodmap-generic-mode): New. (Bug#2065) (tiny change)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8290398d038544bc2c0fb7fb06a8d26447f0cd2e..bf1a64802d0047452712c4297a8aef716bf06107 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-03-06  Daniel Clemente  <dcl441-bugs@yahoo.com>  (tiny change)
+
+       * generic-x.el (xmodmap-generic-mode): New.  (Bug#2065)
+
 2011-03-06  Juanma Barranquero  <lekktu@gmail.com>
 
        * allout.el (allout-init, allout-prefixed-keybindings)

diff --git a/lisp/generic-x.el b/lisp/generic-x.el
index e23af4dff78e7297db085ff4d8c45de01f60f5bc..3c6622f6b168146cfa917cc437562a9f95c6aad6 100644 (file)
--- a/lisp/generic-x.el
+++ b/lisp/generic-x.el
@@ -370,6 +370,14 @@ your changes into effect."
   nil
   "Generic mode for X Resource configuration files."))
 
+(define-generic-mode xmodmap-generic-mode
+  '(?!)
+  '("add" "clear" "keycode" "keysym" "remove" "pointer")
+  nil
+  '("[xX]modmap\\(rc\\)?\\'")
+  nil
+  "Simple mode for xmodmap files.")
+
 ;;; Hosts
 (when (memq 'hosts-generic-mode generic-extras-enable-list)