(pc-selection-mode): Call normal-erase-is-backspace-mode instead of

binding keys individually.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d2671d2458a37d85d33f5cecf05477ab0404be61..87f312df9972bf82b254729f76338c028c159a65 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-04-04  Eli Zaretskii  <eliz@is.elta.co.il>
 
+       * emulation/pc-select.el (pc-selection-mode): Call
+       normal-erase-is-backspace-mode instead of binding keys
+       individually.
+
        * cus-load.el (normal-erase-is-backspace): Use it instead of
        delete-key-deletes-forward.
 

diff --git a/lisp/emulation/pc-select.el b/lisp/emulation/pc-select.el
index ec8e0a956b1a651eed0a3ed7f4a4e165f8dd1090..46299eefeaa52a57e2982d2121735400ab74c58a 100644 (file)
--- a/lisp/emulation/pc-select.el
+++ b/lisp/emulation/pc-select.el
@@ -727,6 +727,10 @@ but before calling pc-selection-mode):
 
   (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 @@ but before calling pc-selection-mode):
 
        ;; 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)))
   ;;