Не получается:
(define-generic-mode 'xmodmap-mode
'(?!)
'("add" "clear" "keycode" "keysym" "pointer" "remove")
nil
'("[xX]modmap\\(rc\\)?\\'")
nil
"Simple mode for xmodmap files.")
(defvar xmodmap-mode-map
(let ((map (make-sparse-keymap)))
map))
(defun my-xmodmap-mode-hook ()
(define-key xmodmap-mode-map (kbd "M-]") 'my-xmodmap-load))
(add-hook 'xmodmap-mode-hook 'my-xmodmap-mode-hook)
При активации режима в *Messages*:
run-hooks: Symbol's function definition is void: keymap.
M-] не работает.