entered into RCS

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)