diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/pc-mode.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/emulation/pc-mode.el b/lisp/emulation/pc-mode.el index b747b65afab..a6f05a3f9b8 100644 --- a/lisp/emulation/pc-mode.el +++ b/lisp/emulation/pc-mode.el | |||
| @@ -2,13 +2,18 @@ | |||
| 2 | "Set up certain key bindings for PC compatibility. | 2 | "Set up certain key bindings for PC compatibility. |
| 3 | The keys affected are: | 3 | The keys affected are: |
| 4 | DELETE (and its variants) delete forward instead of backward. | 4 | DELETE (and its variants) delete forward instead of backward. |
| 5 | C-BACKSPACE kills backward a word (as C-DELETE normally would). | ||
| 6 | M-BACKSPACE does undo. | ||
| 5 | HOME and END move to beginning and end of line | 7 | HOME and END move to beginning and end of line |
| 6 | C-HOME and C-END move to beginning and end of buffer." | 8 | C-HOME and C-END move to beginning and end of buffer." |
| 7 | 9 | ||
| 8 | (interactive) | 10 | (interactive) |
| 9 | (define-key function-key-map [delete] "\C-d") | 11 | (define-key function-key-map [delete] "\C-d") |
| 10 | (define-key function-key-map [M-delete] [?\M-\C-d]) | 12 | (define-key function-key-map [M-delete] [?\M-d]) |
| 13 | (define-key function-key-map [C-delete] [?\M-d]) | ||
| 11 | (global-set-key [C-M-delete] 'kill-sexp) | 14 | (global-set-key [C-M-delete] 'kill-sexp) |
| 15 | (global-set-key [C-backspace] 'backward-kill-word) | ||
| 16 | (global-set-key [M-backspace] 'undo) | ||
| 12 | 17 | ||
| 13 | (global-set-key [home] 'beginning-of-line) | 18 | (global-set-key [home] 'beginning-of-line) |
| 14 | (global-set-key [end] 'end-of-line) | 19 | (global-set-key [end] 'end-of-line) |