diff options
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/emulation/cua-base.el | 1 | ||||
| -rw-r--r-- | lisp/emulation/cua-rect.el | 1 |
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 @@ | |||
| 1 | 2012-03-10 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * emulation/cua-rect.el (cua--init-rectangles): | ||
| 4 | * emulation/cua-base.el (cua--init-keymaps): Add | ||
| 5 | delete-forward-char to remappings (Bug#9666). | ||
| 6 | |||
| 1 | 2012-03-10 Martin Rudalics <rudalics@gmx.at> | 7 | 2012-03-10 Martin Rudalics <rudalics@gmx.at> |
| 2 | 8 | ||
| 3 | * speedbar.el (speedbar-unhighlight-one-tag-line): Avoid | 9 | * 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." | |||
| 1478 | (define-key cua--region-keymap [remap backward-delete-char] 'cua-delete-region) | 1478 | (define-key cua--region-keymap [remap backward-delete-char] 'cua-delete-region) |
| 1479 | (define-key cua--region-keymap [remap backward-delete-char-untabify] 'cua-delete-region) | 1479 | (define-key cua--region-keymap [remap backward-delete-char-untabify] 'cua-delete-region) |
| 1480 | (define-key cua--region-keymap [remap delete-char] 'cua-delete-region) | 1480 | (define-key cua--region-keymap [remap delete-char] 'cua-delete-region) |
| 1481 | (define-key cua--region-keymap [remap delete-forward-char] 'cua-delete-region) | ||
| 1481 | ;; kill region | 1482 | ;; kill region |
| 1482 | (define-key cua--region-keymap [remap kill-region] 'cua-cut-region) | 1483 | (define-key cua--region-keymap [remap kill-region] 'cua-cut-region) |
| 1483 | (define-key cua--region-keymap [remap clipboard-kill-region] 'cua-cut-region) | 1484 | (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." | |||
| 1420 | (define-key cua--rectangle-keymap [remap kill-ring-save] 'cua-copy-rectangle) | 1420 | (define-key cua--rectangle-keymap [remap kill-ring-save] 'cua-copy-rectangle) |
| 1421 | (define-key cua--rectangle-keymap [remap kill-region] 'cua-cut-rectangle) | 1421 | (define-key cua--rectangle-keymap [remap kill-region] 'cua-cut-rectangle) |
| 1422 | (define-key cua--rectangle-keymap [remap delete-char] 'cua-delete-rectangle) | 1422 | (define-key cua--rectangle-keymap [remap delete-char] 'cua-delete-rectangle) |
| 1423 | (define-key cua--rectangle-keymap [remap delete-forward-char] 'cua-delete-rectangle) | ||
| 1423 | (define-key cua--rectangle-keymap [remap set-mark-command] 'cua-toggle-rectangle-mark) | 1424 | (define-key cua--rectangle-keymap [remap set-mark-command] 'cua-toggle-rectangle-mark) |
| 1424 | 1425 | ||
| 1425 | (define-key cua--rectangle-keymap [remap forward-char] 'cua-resize-rectangle-right) | 1426 | (define-key cua--rectangle-keymap [remap forward-char] 'cua-resize-rectangle-right) |