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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 531c363d3f061deccb4a1eee4a0fd9b520dd47bc..17dc84304f9ca1d0cf4a10fb14cf35859c122562 100644 (file)
--- 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 9e7be0f670db115b1b52bbc52759e4f5bd9712dd..a918f298a4ed4eeee07f7ded54dbdea80cb6e406 100644 (file)
--- 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 95b77a697f1d54e1def1cc88386078ecfa77ca47..e3aade760dc13be50783a4428cdf98fe275d0e30 100644 (file)
--- 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)