# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799887733 0
# Node ID afc9c0b4fbb519c9196a4e5d2a4d7e32f81dac6d
# Parent  e93b5c05c9495188eee8a47071902250be2797fb
entered into RCS

diff -r e93b5c05c949 -r afc9c0b4fbb5 lisp/emulation/pc-mode.el
--- a/lisp/emulation/pc-mode.el	Sun May 07 22:36:27 1995 +0000
+++ b/lisp/emulation/pc-mode.el	Sun May 07 23:02:13 1995 +0000
@@ -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)