code_junkie

Is there some way to get more than Meta and Ctrl on Windows? Long time Emacs user wants Hyper/Super

Nov 12th, 2011
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.52 KB | None | 0 0
  1. ; setting the PC keyboard's various keys to Super or Hyper
  2. (setq w32-pass-lwindow-to-system nil
  3. w32-pass-rwindow-to-system nil
  4. w32-pass-apps-to-system nil
  5. w32-lwindow-modifier 'super ;; Left Windows key
  6. w32-rwindow-modifier 'super ;; Right Windows key
  7. w32-apps-modifier 'hyper) ;; Menu key
  8.  
  9. (defun super-test ()
  10. (interactive)
  11. (message "Super"))
  12.  
  13. (defun hyper-test ()
  14. (interactive)
  15. (message "Hyper"))
  16.  
  17. (global-set-key [(super h)] 'super-test)
  18. (global-set-key [(hyper h)] 'hyper-test)
Add Comment
Please, Sign In to add comment