mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

generic-x trivia.

Browse Source 
* lisp/generic-x.el (generic-unix-modes): Add xmodmap-generic-mode.
(xmodmap-generic-mode): Respect generic-extras-enable-list.
This commit is contained in:
Glenn Morris 2011-03-05 18:59:21 -08:00
parent ffd0a50215
commit 79a0fb58c5
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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)

6
lisp/generic-x.el
View File

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