From 9af40217a32c9a5ba43112ebc52b23eb4c16b7c5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 21 Jun 1994 15:42:25 +0000 Subject: [PATCH] Don't bind keys C-insert, C-delete, and S-insert if they are already bound. --- lisp/s-region.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/s-region.el b/lisp/s-region.el index f6ff4091189..bd66e2ddd0d 100644 --- a/lisp/s-region.el +++ b/lisp/s-region.el @@ -34,6 +34,7 @@ ;; that are given this kind of overlay should be (interactive "p") ;; functions. +;; If the following keys are not already bound then... ;; C-insert is bound to copy-region-as-kill ;; S-delete is bound to kill-region ;; S-insert is bound to yank @@ -94,9 +95,12 @@ add binding to, defaulting to global keymap." [C-next] [C-previous] [C-home] [C-end] [M-next] [M-previous] [M-home] [M-end])) -(global-set-key [C-insert] 'copy-region-as-kill) -(global-set-key [S-delete] 'kill-region) -(global-set-key [S-insert] 'yank) +(or (global-key-binding [C-insert]) + (global-set-key [C-insert] 'copy-region-as-kill)) +(or (global-key-binding [C-delete]) + (global-set-key [S-delete] 'kill-region)) +(or (global-key-binding [S-insert]) + (global-set-key [S-insert] 'yank)) (provide 's-region) -- 2.39.5