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 <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> 2012-03-10 Martin Rudalics <rudalics@gmx.at>
* speedbar.el (speedbar-unhighlight-one-tag-line): Avoid * speedbar.el (speedbar-unhighlight-one-tag-line): Avoid
......
...@@ -1478,6 +1478,7 @@ If ARG is the atom `-', scroll upward by nearly full screen." ...@@ -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] 'cua-delete-region)
(define-key cua--region-keymap [remap backward-delete-char-untabify] '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-char] 'cua-delete-region)
(define-key cua--region-keymap [remap delete-forward-char] 'cua-delete-region)
;; kill region ;; kill region
(define-key cua--region-keymap [remap kill-region] 'cua-cut-region) (define-key cua--region-keymap [remap kill-region] 'cua-cut-region)
(define-key cua--region-keymap [remap clipboard-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." ...@@ -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-ring-save] 'cua-copy-rectangle)
(define-key cua--rectangle-keymap [remap kill-region] 'cua-cut-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-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 set-mark-command] 'cua-toggle-rectangle-mark)
(define-key cua--rectangle-keymap [remap forward-char] 'cua-resize-rectangle-right) (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