diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-10 07:11:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-10 07:11:42 +0000 |
| commit | 601fa27a78a89bc1016749a6d77d61668c8a4067 (patch) | |
| tree | 4943c19cff663083b2b66835501ec469b86aab21 /lisp/emulation/pc-mode.el | |
| parent | 65b6ac4f15f4c0ace83fbfca963998e47299ce6d (diff) | |
| download | emacs-601fa27a78a89bc1016749a6d77d61668c8a4067.tar.gz | |
Initial revision
Diffstat (limited to 'lisp/emulation/pc-mode.el')
| -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 @@ +(defun pc-bindings-mode () + "Set up certain key bindings for PC compatibility. +The keys affected are: + DELETE (and its variants) delete forward instead of backward. + HOME and END move to beginning and end of line + C-HOME and C-END move to beginning and end of buffer." + + (interactive) + (define-key function-key-map [delete] "\C-d") + (define-key function-key-map [M-delete] [?\M-\C-d]) + (global-set-key [C-M-delete] 'kill-sexp) + + (global-set-key [home] 'beginning-of-line) + (global-set-key [end] 'end-of-line) + (global-set-key [C-home] 'beginning-of-buffer) + (global-set-key [C-end] 'end-of-buffer)) + |