ReverseFlux

Key override

Feb 6th, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.46 KB | None | 0 0
  1. (defvar my-keys-minor-mode-map
  2. (let ((map (make-sparse-keymap)))
  3. (define-key map (kbd "C-i") 'some-function)
  4. map)
  5. "my-keys-minor-mode keymap.")
  6.  
  7. (define-minor-mode my-keys-minor-mode
  8. "A minor mode so that my key settings override annoying major modes."
  9. :init-value t
  10. :lighter " my-keys")
  11.  
  12. (my-keys-minor-mode 1)
  13.  
  14. (defun my-minibuffer-setup-hook ()
  15. (my-keys-minor-mode 0))
  16.  
  17. (add-hook 'minibuffer-setup-hook 'my-minibuffer-setup-hook)
Advertisement
Add Comment
Please, Sign In to add comment