diff options
Diffstat (limited to 'lisp/emulation/pc-select.el')
-rw-r--r-- | lisp/emulation/pc-select.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/emulation/pc-select.el b/lisp/emulation/pc-select.el index ec8e0a956b1..46299eefeaa 100644 --- 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))) ;; |