# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772213345 0
# Node ID f2e16be5a2632917c57a593f3a31941f9e492cda
# Parent  6be46752d57f0bcf8072b9b0d709a1fcdd9b4849
Don't bind keys C-insert, C-delete, and
S-insert if they are already bound.

diff -r 6be46752d57f -r f2e16be5a263 lisp/s-region.el
--- a/lisp/s-region.el	Tue Jun 21 15:39:44 1994 +0000
+++ b/lisp/s-region.el	Tue Jun 21 15:42:25 1994 +0000
@@ -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 @@
        [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)