diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-08-31 13:38:50 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-08-31 13:38:50 -0400 |
| commit | 723088480da2c8320e0944bc23f9b72fccb54319 (patch) | |
| tree | 8ef6b25079cf71b9a5ac80074f9319360dc8aed5 | |
| parent | 3aca1291d030ea97eab8b99d7a3e916a980b0bae (diff) | |
| download | emacs-723088480da2c8320e0944bc23f9b72fccb54319.tar.gz | |
Fix right and left key remapping issue (bug#12317)
* lisp/emulation/cua-rect.el (cua--init-rectangles):
* lisp/textmodes/picture.el (picture-mode-map):
* lisp/play/blackbox.el (blackbox-mode-map):
Remap right-char and left-char like forward-char and backward-char.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/emulation/cua-rect.el | 2 | ||||
| -rw-r--r-- | lisp/play/blackbox.el | 4 | ||||
| -rw-r--r-- | lisp/textmodes/picture.el | 2 |
4 files changed, 14 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3af8b506ee7..d0f4bed4449 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2012-08-31 Glenn Morris <rgm@gnu.org> + + * emulation/cua-rect.el (cua--init-rectangles): + * textmodes/picture.el (picture-mode-map): + * play/blackbox.el (blackbox-mode-map): Remap right-char and left-char + like forward-char and backward-char. (Bug#12317) + 2012-08-30 Leo Liu <sdl.web@gmail.com> * progmodes/flymake.el (flymake-warning-re): New variable. diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index e3aade760dc..245e1f63cc1 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -1424,7 +1424,9 @@ With prefix arg, indent to that column." (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 right-char] 'cua-resize-rectangle-right) (define-key cua--rectangle-keymap [remap backward-char] 'cua-resize-rectangle-left) + (define-key cua--rectangle-keymap [remap left-char] 'cua-resize-rectangle-left) (define-key cua--rectangle-keymap [remap next-line] 'cua-resize-rectangle-down) (define-key cua--rectangle-keymap [remap previous-line] 'cua-resize-rectangle-up) (define-key cua--rectangle-keymap [remap end-of-line] 'cua-resize-rectangle-eol) diff --git a/lisp/play/blackbox.el b/lisp/play/blackbox.el index eb2d784c8e5..4e8790c3586 100644 --- a/lisp/play/blackbox.el +++ b/lisp/play/blackbox.el @@ -93,11 +93,13 @@ (define-key map (vector 'remap oldfun) newfun)) -(defvar blackbox-mode-map +(defvar blackbox-mode-map (let ((map (make-keymap))) (suppress-keymap map t) (blackbox-redefine-key map 'backward-char 'bb-left) + (blackbox-redefine-key map 'left-char 'bb-left) (blackbox-redefine-key map 'forward-char 'bb-right) + (blackbox-redefine-key map 'right-char 'bb-right) (blackbox-redefine-key map 'previous-line 'bb-up) (blackbox-redefine-key map 'next-line 'bb-down) (blackbox-redefine-key map 'move-end-of-line 'bb-eol) diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 9e8cbb216d1..5662e905714 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -620,7 +620,9 @@ Leaves the region surrounding the rectangle." (picture-substitute 'completion-separator-self-insert-autofilling 'picture-self-insert) (picture-substitute 'forward-char 'picture-forward-column) + (picture-substitute 'right-char 'picture-forward-column) (picture-substitute 'backward-char 'picture-backward-column) + (picture-substitute 'left-char 'picture-backward-column) (picture-substitute 'delete-char 'picture-clear-column) ;; There are two possibilities for what is normally on DEL. (picture-substitute 'backward-delete-char-untabify 'picture-backward-clear-column) |