X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fkeydefs.el;h=2f23834d39d455f02aeec63db49b6c79fc021d0b;hb=9f7593526f487e8b5272d5aa2a72facbf121b23e;hp=ec4b6cb340e93b3c7e1ce39968b0a6df58a1e67a;hpb=02f4d2761a98c5cb9d5b423d2361160a5d8c9ee4;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/keydefs.el b/lisp/keydefs.el
index ec4b6cb..2f23834 100644
--- a/lisp/keydefs.el
+++ b/lisp/keydefs.el
@@ -337,9 +337,11 @@ 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)
+(define-key global-map "\C-xrp" 'replace-rectangle)
 (define-key global-map "\C-xrw" 'window-configuration-to-register)
 ;(define-key global-map "\C-xrf" 'frame-configuration-to-register)
 
@@ -649,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