Mercurial > emacs
changeset 37196:f3dfc212bd1b
(pc-selection-mode): Call normal-erase-is-backspace-mode instead of
binding keys individually.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 04 Apr 2001 14:08:21 +0000 |
| parents | 1084c7437815 |
| children | 7b4fa0c2ad35 |
| files | lisp/emulation/pc-select.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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))) ;;