X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fkeydefs.el;h=2f23834d39d455f02aeec63db49b6c79fc021d0b;hb=76172c8c0ab58a6a890c6744b997ec7994c81a3b;hp=c34c35d22d99da0b18053c07c0437950f1dc06de;hpb=dbf2768f7b146e97e37a27316f70bb313f1acf15;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/keydefs.el b/lisp/keydefs.el
index c34c35d..2f23834 100644
--- a/lisp/keydefs.el
+++ b/lisp/keydefs.el
@@ -337,6 +337,7 @@ Keymap for characters following C-c.")
 (define-key global-map "\C-xr+" 'increment-register)
 (define-key global-map "\C-xrc" 'clear-rectangle)
 (define-key global-map "\C-xrk" 'kill-rectangle)
+(define-key global-map "\C-xrd" 'delete-rectangle)
 (define-key global-map "\C-xry" 'yank-rectangle)
 (define-key global-map "\C-xro" 'open-rectangle)
 (define-key global-map "\C-xrt" 'string-rectangle)
@@ -650,13 +651,13 @@ Keymap for characters following C-c.")
 (define-key global-map 'kp-8		'self-insert-command)
 (define-key global-map 'kp-9		'self-insert-command)
 
-(define-key global-map 'select		'function-key-error)
-(define-key global-map 'print		'function-key-error)
+;(define-key global-map 'select		'function-key-error)
+;(define-key global-map 'print		'function-key-error)
 (define-key global-map 'execute		'execute-extended-command)
-(define-key global-map 'clearline	'function-key-error)
+;(define-key global-map 'clearline	'function-key-error)
 (define-key global-map 'insertline	'open-line)
 (define-key global-map 'deleteline	'kill-line)
-(define-key global-map 'insertchar	'function-key-error)
+;(define-key global-map 'insertchar	'function-key-error)
 (define-key global-map 'deletechar	'delete-char)
 
 ;;; keydefs.el ends here