Commit 58e4f61d authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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

binding keys individually.
parent 7f62656b
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.
 
......
......@@ -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)))
;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment