diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-06-21 15:42:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-06-21 15:42:25 +0000 |
| commit | 9af40217a32c9a5ba43112ebc52b23eb4c16b7c5 (patch) | |
| tree | b2b09d250f53c25fc191fa1dfbe86138eccafd6e /lisp/s-region.el | |
| parent | 718b4478bfe8dbd6a9f6df7aed6129b11c9ae96c (diff) | |
| download | emacs-9af40217a32c9a5ba43112ebc52b23eb4c16b7c5.tar.gz emacs-9af40217a32c9a5ba43112ebc52b23eb4c16b7c5.tar.bz2 emacs-9af40217a32c9a5ba43112ebc52b23eb4c16b7c5.zip | |
Don't bind keys C-insert, C-delete, and
S-insert if they are already bound.
Diffstat (limited to 'lisp/s-region.el')
| -rw-r--r-- | lisp/s-region.el | 10 |
1 files 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) |