# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 986393301 0
# Node ID f3dfc212bd1b032351a37bfea05b7c1d79f4618a
# Parent  1084c743781518b59f0dddb1ac5f37843aa322f5
(pc-selection-mode): Call normal-erase-is-backspace-mode instead of
binding keys individually.

diff -r 1084c7437815 -r f3dfc212bd1b lisp/emulation/pc-select.el
--- a/lisp/emulation/pc-select.el	Wed Apr 04 14:07:13 2001 +0000
+++ b/lisp/emulation/pc-select.el	Wed Apr 04 14:08:21 2001 +0000
@@ -727,6 +727,10 @@
 
   (or pc-select-selection-keys-only
       (progn
+	;; We are behaving like normal-erase-is-backspace-mode, so
+	;; say so explicitly.
+	(setq-default normal-erase-is-backspace t)
+	(normal-erase-is-backspace-mode 1)
 	(define-key global-map [S-insert]  'yank)
 	(define-key global-map [C-insert]  'copy-region-as-kill)
 	(define-key global-map [S-delete]  'kill-region)
@@ -741,16 +745,13 @@
 
 	;; The following bindings are from Pete Forman.
 	(global-set-key [f6] 'other-window)	; KNextPane     F6
-	(global-set-key [delete] 'delete-char)	; KDelete       Del
 	(global-set-key [C-delete] 'kill-line)	; KEraseEndLine cDel
 	(global-set-key "\M-\d" 'undo)		; KUndo         aBS
 
-	;; The following bindings are taken from pc-mode.el
+	;; The following binding is taken from pc-mode.el
 	;; as suggested by RMS.
-	;; I only used the ones that are not covered above.
-	(define-key function-key-map  [M-delete] [?\M-d])
+	;; I only used the one that is not covered above.
 	(global-set-key [C-M-delete]  'kill-sexp)
-	(global-set-key [C-backspace] 'backward-kill-word)
 	;; Next line proposed by Eli Barzilay
 	(global-set-key [C-escape]    'electric-buffer-list)))
   ;;