Commit 699bd04e authored by Chong Yidong's avatar Chong Yidong
Browse files

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
parent 570a1714
2012-03-10 Chong Yidong <>
* 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 <>
* speedbar.el (speedbar-unhighlight-one-tag-line): Avoid
......@@ -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)
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment