carbon2-commit: Bind '(shift delete) to #'kill-primary-selection by default.

changeset: 4411:9e28067e3083ce90cdd48370cd9f7947862681f9 user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Wed Jan 16 00:19:59 2008 +0100 files: lisp/ChangeLog lisp/keydefs.el description: Bind '(shift delete) to #'kill-primary-selection by default. 2008-01-16 Aidan Kehoe <kehoea(a)parhasard.net&gt; * keydefs.el (global-map): Bind '(shift delete) to #'kill-primary-selection, as described by Glynn Clements in 16434.49191.47038.991206(a)cerise.nosuchdomain.co.uk of 2004-02-08. diff -r e97f16fb2e2584470e54cd36c7f17eaff95c06a4 -r 9e28067e3083ce90cdd48370cd9f7947862681f9 lisp/ChangeLog --- 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-14 Jerry James <james(a)xemacs.o +2008-01-16 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * keydefs.el (global-map): + Bind '(shift delete) to #'kill-primary-selection, as described by + Glynn Clements in + 16434.49191.47038.991206(a)cerise.nosuchdomain.co.uk of 2004-02-08. + 2008-01-14 Jerry James <james(a)xemacs.org&gt; * font-lock.el (font-lock-add-keywords): Adapt to differences in diff -r e97f16fb2e2584470e54cd36c7f17eaff95c06a4 -r 9e28067e3083ce90cdd48370cd9f7947862681f9 lisp/keydefs.el --- 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,11 +620,15 ＠＠ Keymap for characters following C-c.") (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) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches