|
11344
|
1 (defun pc-bindings-mode ()
|
|
|
2 "Set up certain key bindings for PC compatibility.
|
|
|
3 The keys affected are:
|
|
|
4 DELETE (and its variants) delete forward instead of backward.
|
|
|
5 HOME and END move to beginning and end of line
|
|
|
6 C-HOME and C-END move to beginning and end of buffer."
|
|
|
7
|
|
|
8 (interactive)
|
|
|
9 (define-key function-key-map [delete] "\C-d")
|
|
|
10 (define-key function-key-map [M-delete] [?\M-\C-d])
|
|
|
11 (global-set-key [C-M-delete] 'kill-sexp)
|
|
|
12
|
|
|
13 (global-set-key [home] 'beginning-of-line)
|
|
|
14 (global-set-key [end] 'end-of-line)
|
|
|
15 (global-set-key [C-home] 'beginning-of-buffer)
|
|
|
16 (global-set-key [C-end] 'end-of-buffer))
|
|
|
17
|
