X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=inline;f=lisp%2Fkeydefs.el;h=17f2e6672b62d5e62338d333a5a52d44489c4e00;hb=16f696e327d4af04c717eac15be2fcf125870013;hp=cbece4fb4726742627dd5d71fe47d9e7bfc5b989;hpb=3062d425fac0473eb5aa2efc0bb002f6ce0cb028;p=chise%2Fxemacs-chise.git

diff --git a/lisp/keydefs.el b/lisp/keydefs.el
index cbece4f..17f2e66 100644
--- a/lisp/keydefs.el
+++ b/lisp/keydefs.el
@@ -238,8 +238,7 @@ Keymap for characters following C-c.")
 (define-key global-map '(control meta -) 'negative-argument)
 
 (define-key global-map "\C-k" 'kill-line)
-;will change like this in 21.5.
-;(define-key global-map "\M-k" 'kill-entire-line)
+(define-key global-map '(control K) 'historical-kill-line)
 (define-key global-map "\C-w" 'kill-region)
 (define-key global-map "\M-w" 'kill-ring-save)
 (define-key global-map "\M-\C-w" 'append-next-kill)
@@ -353,8 +352,6 @@ Keymap for characters following C-c.")
 (define-key global-map "\M-a" 'backward-sentence)
 (define-key global-map "\M-e" 'forward-sentence)
 (define-key global-map "\M-k" 'kill-sentence)
-;will change like this in 21.5.
-;(define-key global-map "\M-K" 'kill-sentence)
 ;;(define-key global-map "\C-x\177" 'backward-kill-sentence)
 
 (define-key global-map "\C-x[" 'backward-page)