Commit 79a0fb58 authored by Glenn Morris's avatar Glenn Morris
Browse files

generic-x trivia.

* lisp/generic-x.el (generic-unix-modes): Add xmodmap-generic-mode.
(xmodmap-generic-mode): Respect generic-extras-enable-list.
parent ffd0a502
2011-03-06 Glenn Morris <rgm@gnu.org>
* generic-x.el (generic-unix-modes): Add xmodmap-generic-mode.
(xmodmap-generic-mode): Respect generic-extras-enable-list.
2011-03-06 Daniel Clemente <dcl441-bugs@yahoo.com> (tiny change)
 
* generic-x.el (xmodmap-generic-mode): New. (Bug#2065)
......
......@@ -229,7 +229,8 @@ This hook will be installed if the variable
prototype-generic-mode
resolve-conf-generic-mode
samba-generic-mode
x-resource-generic-mode)
x-resource-generic-mode
xmodmap-generic-mode)
"List of generic modes that are defined by default on Unix.")
(defconst generic-other-modes
......@@ -370,13 +371,14 @@ your changes into effect."
nil
"Generic mode for X Resource configuration files."))
(if (memq 'xmodmap-generic-mode generic-extras-enable-list)
(define-generic-mode xmodmap-generic-mode
'(?!)
'("add" "clear" "keycode" "keysym" "remove" "pointer")
nil
'("[xX]modmap\\(rc\\)?\\'")
nil
"Simple mode for xmodmap files.")
"Simple mode for xmodmap files."))
;;; Hosts
(when (memq 'hosts-generic-mode generic-extras-enable-list)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment