# HG changeset patch
# User stephent
# Date 1033986438 0
# Node ID 75469d7df0a91aeb5a0a47066d813f4cd14b6ae2
# Parent  17f10f129fd3a4320a61adf3067b20a68474b326
[xemacs-hg @ 2002-10-07 10:27:15 by stephent]
bind delete-rectangle <87fzvieed5.fsf@tleepslib.sk.tsukuba.ac.jp>

diff -r 17f10f129fd3 -r 75469d7df0a9 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 06 21:54:12 2002 +0000
+++ b/lisp/ChangeLog	Mon Oct 07 10:27:18 2002 +0000
@@ -1,3 +1,7 @@
+2002-10-07  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* keydefs.el (global-map): Bind C-xrd to delete-rectangle per GNU.
+
 2002-10-03  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* font-lock.el (font-lock-compile-keywords): Improve docstring.
diff -r 17f10f129fd3 -r 75469d7df0a9 lisp/keydefs.el
--- a/lisp/keydefs.el	Sun Oct 06 21:54:12 2002 +0000
+++ b/lisp/keydefs.el	Mon Oct 07 10:27:18 2002 +0000
@@ -343,6 +343,7 @@
 (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)