305 (message "MS Windows, w32, win32") |
305 (message "MS Windows, w32, win32") |
306 |
306 |
307 ;; To remap CapsLock to ScrollLock: |
307 ;; To remap CapsLock to ScrollLock: |
308 ;; Windows Registry Editor Version 5.00 |
308 ;; Windows Registry Editor Version 5.00 |
309 ;; [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout] |
309 ;; [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout] |
310 ;; "Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,46,00,3a,00,00,00,00,00 |
310 ;; ; CapsLock (3a,00) => LWin (5b,e0); LWin (5b,e0) => Apps (5d,e0) |
311 (when (eq system-type 'nt) |
311 ;; "Scancode Map"=hex:00,00,00,00,00,00,00,00,03,00,00,00,5b,e0,3a,00,5d,e0,5b,e0,00,00,00,00 |
312 (setq w32-scroll-lock-modifier 'super)) |
312 (when (eq window-system 'w32) |
|
313 (setq w32-apps-modifier 'super)) |
313 |
314 |
314 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
315 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
315 (message "package, elpa") |
316 (message "package, elpa") |
316 |
317 |
317 (eval-when 'compile (require 'package nil t)) |
318 (eval-when 'compile (require 'package nil t)) |