From: Daniel Clemente <dcl441-bugs@yahoo.com>
Date: Sun, 6 Mar 2011 02:56:39 +0000 (-0800)
Subject: * lisp/generic-x.el (xmodmap-generic-mode): New.  (Bug#2065)  (tiny change)
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~674^2~7
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ffd0a50215b0e189b2a84913fbec2fa3c4419a8d;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8290398d038..bf1a64802d0 100644
--- 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 e23af4dff78..3c6622f6b16 100644
--- 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)