298 "List of text modes.") |
298 "List of text modes.") |
299 |
299 |
300 (defvar my-text-mode-hook-list |
300 (defvar my-text-mode-hook-list |
301 (my-mode2hook my-text-mode-list) |
301 (my-mode2hook my-text-mode-list) |
302 "List of text mode hooks.") |
302 "List of text mode hooks.") |
|
303 |
|
304 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
305 (message "MS Windows, w32, win32") |
|
306 |
|
307 ;; To remap CapsLock to ScrollLock: |
|
308 ;; Windows Registry Editor Version 5.00 |
|
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 |
|
311 (when (eq system-type 'nt) |
|
312 (setq w32-scroll-lock-modifier 'super)) |
303 |
313 |
304 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
314 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
305 (message "package, elpa") |
315 (message "package, elpa") |
306 |
316 |
307 (eval-when 'compile (require 'package nil t)) |
317 (eval-when 'compile (require 'package nil t)) |