summaryrefslogtreecommitdiff
path: root/lisp/emulation
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-05-07 23:02:13 +0000
committerRichard M. Stallman <rms@gnu.org>1995-05-07 23:02:13 +0000
commitb6384070e8a6736447005402e5e9dc63238c1793 (patch)
tree0be33065f8ea2a4dd495466652904f27b57aeb27 /lisp/emulation
parent66a8ad0fd41daca7da92b0cecc0c504a940f95ba (diff)
downloademacs-b6384070e8a6736447005402e5e9dc63238c1793.tar.gz
entered into RCS
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/pc-mode.el7
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 @@
"Set up certain key bindings for PC compatibility.
The keys affected are:
DELETE (and its variants) delete forward instead of backward.
+ C-BACKSPACE kills backward a word (as C-DELETE normally would).
+ M-BACKSPACE does undo.
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])
+ (define-key function-key-map [M-delete] [?\M-d])
+ (define-key function-key-map [C-delete] [?\M-d])
(global-set-key [C-M-delete] 'kill-sexp)
+ (global-set-key [C-backspace] 'backward-kill-word)
+ (global-set-key [M-backspace] 'undo)
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)