Mercurial > hg > xemacs-beta
changeset 4397:9e28067e3083
Bind '(shift delete) to #'kill-primary-selection by default.
2008-01-16 Aidan Kehoe <kehoea@parhasard.net>
* keydefs.el (global-map):
Bind '(shift delete) to #'kill-primary-selection, as described by
Glynn Clements in
16434.49191.47038.991206@cerise.nosuchdomain.co.uk of 2004-02-08.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 16 Jan 2008 00:19:59 +0100 |
| parents | e97f16fb2e25 |
| children | 479443c0f95a |
| files | lisp/ChangeLog lisp/keydefs.el |
| diffstat | 2 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jan 15 22:59:28 2008 +0100 +++ b/lisp/ChangeLog Wed Jan 16 00:19:59 2008 +0100 @@ -1,3 +1,10 @@ +2008-01-16 Aidan Kehoe <kehoea@parhasard.net> + + * keydefs.el (global-map): + Bind '(shift delete) to #'kill-primary-selection, as described by + Glynn Clements in + 16434.49191.47038.991206@cerise.nosuchdomain.co.uk of 2004-02-08. + 2008-01-14 Jerry James <james@xemacs.org> * font-lock.el (font-lock-add-keywords): Adapt to differences in
--- a/lisp/keydefs.el Tue Jan 15 22:59:28 2008 +0100 +++ b/lisp/keydefs.el Wed Jan 16 00:19:59 2008 +0100 @@ -620,12 +620,16 @@ (define-key global-map '(meta delete) 'backward-or-forward-kill-word) (define-key global-map [(control x) (delete)] 'backward-or-forward-kill-sentence) +(define-key global-map '(shift delete) 'kill-primary-selection) + (define-key global-map 'kp-delete 'backward-or-forward-delete-char) (define-key global-map '(control kp-delete) 'backward-or-forward-kill-word) (define-key global-map '(meta kp-delete) 'backward-or-forward-kill-word) (define-key global-map [(control x) (kp-delete)] 'backward-or-forward-kill-sentence) +(define-key global-map '(shift kp-delete) 'kill-primary-selection) + ;; don't try this one at home, kids. (define-key global-map '(control meta delete) 'backward-or-forward-kill-sexp) (define-key global-map '(control meta kp-delete) 'backward-or-forward-kill-sexp)