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

3 files changed, 8 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 531c363d3f0..17dc84304f9 100644
--- a/lisp/ChangeLog
+++ b/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
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 9e7be0f670d..a918f298a4e 100644
--- a/lisp/emulation/cua-base.el
+++ b/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)
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 95b77a697f1..e3aade760dc 100644
--- a/lisp/emulation/cua-rect.el
+++ b/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)