[Emacs-diffs] /srv/bzr/emacs/trunk r107552: Add delete-forward-char to CUA remappings.

[Chong Yidong]

------------------------------------------------------------
revno: 107552
fixes bug(s): http://debbugs.gnu.org/9666
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-03-10 16:26:45 +0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/emulation/cua-base.el
  lisp/emulation/cua-rect.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-10 07:58:54 +0000
+++ b/lisp/ChangeLog    2012-03-10 08:26:45 +0000
@@ -1,3 +1,9 @@
+2012-03-10  Chong Yidong  <address@hidden>
+
+       * 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  <address@hidden>
 
        * speedbar.el (speedbar-unhighlight-one-tag-line): Avoid

=== modified file 'lisp/emulation/cua-base.el'
--- a/lisp/emulation/cua-base.el        2012-02-28 08:17:21 +0000
+++ b/lisp/emulation/cua-base.el        2012-03-10 08:26:45 +0000
@@ -1478,6 +1478,7 @@
   (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)

=== modified file 'lisp/emulation/cua-rect.el'
--- a/lisp/emulation/cua-rect.el        2012-01-19 07:21:25 +0000
+++ b/lisp/emulation/cua-rect.el        2012-03-10 08:26:45 +0000
@@ -1420,6 +1420,7 @@
   (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)