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

ffd0a502 · Daniel Clemente · Glenn Morris · 01c35094 · ffd0a502 · ffd0a502
Commit ffd0a502 authored Mar 05, 2011 by Daniel Clemente Committed by Glenn Morris Mar 05, 2011
Show whitespace changes
Inline Side-by-side

Showing with 12 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/generic-x.el lisp/generic-x.el +8 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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)

--- 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)