diff options
| author | Richard M. Stallman | 1995-04-10 07:11:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-04-10 07:11:42 +0000 |
| commit | 601fa27a78a89bc1016749a6d77d61668c8a4067 (patch) | |
| tree | 4943c19cff663083b2b66835501ec469b86aab21 | |
| parent | 65b6ac4f15f4c0ace83fbfca963998e47299ce6d (diff) | |
| download | emacs-601fa27a78a89bc1016749a6d77d61668c8a4067.tar.gz emacs-601fa27a78a89bc1016749a6d77d61668c8a4067.zip | |
Initial revision
| -rw-r--r-- | lisp/emulation/pc-mode.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lisp/emulation/pc-mode.el b/lisp/emulation/pc-mode.el new file mode 100644 index 00000000000..b747b65afab --- /dev/null +++ b/lisp/emulation/pc-mode.el | |||
| @@ -0,0 +1,17 @@ | |||
| 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 | |||