Add delete-forward-char to CUA remappings.

* lisp/emulation/cua-rect.el (cua--init-rectangles):
* lisp/emulation/cua-base.el (cua--init-keymaps): Add delete-forward-char to remappings.

Fixes: debbugs:9666

lisp/ChangeLog

@@ -1,3 +1,9 @@
+2012-03-10  Chong Yidong  <cyd@gnu.org>
+
+	* emulation/cua-rect.el (cua--init-rectangles):
+	* emulation/cua-base.el (cua--init-keymaps): Add
+	delete-forward-char to remappings (Bug#9666).
+
 2012-03-10  Martin Rudalics  <rudalics@gmx.at>
 
 	* speedbar.el (speedbar-unhighlight-one-tag-line): Avoid

lisp/emulation/cua-base.el

@@ -1478,6 +1478,7 @@ If ARG is the atom `-', scroll upward by nearly full screen."
   (define-key cua--region-keymap [remap backward-delete-char]	'cua-delete-region)
   (define-key cua--region-keymap [remap backward-delete-char-untabify] 'cua-delete-region)
   (define-key cua--region-keymap [remap delete-char]		'cua-delete-region)
+  (define-key cua--region-keymap [remap delete-forward-char]    'cua-delete-region)
   ;; kill region
   (define-key cua--region-keymap [remap kill-region]		'cua-cut-region)
   (define-key cua--region-keymap [remap clipboard-kill-region]	'cua-cut-region)

lisp/emulation/cua-rect.el

@@ -1420,6 +1420,7 @@ With prefix arg, indent to that column."
   (define-key cua--rectangle-keymap [remap kill-ring-save]      'cua-copy-rectangle)
   (define-key cua--rectangle-keymap [remap kill-region]         'cua-cut-rectangle)
   (define-key cua--rectangle-keymap [remap delete-char]         'cua-delete-rectangle)
+  (define-key cua--rectangle-keymap [remap delete-forward-char] 'cua-delete-rectangle)
   (define-key cua--rectangle-keymap [remap set-mark-command]    'cua-toggle-rectangle-mark)
 
   (define-key cua--rectangle-keymap [remap forward-char]        'cua-resize-rectangle-right)