mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-03 20:24:29 +00:00
Code Issues Releases Activity

Don't bind keys C-insert, C-delete, and

Browse Source 
S-insert if they are already bound.
This commit is contained in:
Richard M. Stallman 1994-06-21 15:42:25 +00:00
parent 718b4478bf
commit 9af40217a3
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/s-region.el
View File

@ -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)