Mercurial > emacs
changeset 7991:f2e16be5a263
Don't bind keys C-insert, C-delete, and
S-insert if they are already bound.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 21 Jun 1994 15:42:25 +0000 |
| parents | 6be46752d57f |
| children | 7bb45acbcaa6 |
| files | lisp/s-region.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)