entered into RCS

diff --git a/lisp/emulation/pc-mode.el b/lisp/emulation/pc-mode.el
index b747b65afab7e1306e7d6e35a73a26490f4ef446..a6f05a3f9b8face590cb97698f645b41d71aa645 100644 (file)
--- 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)