[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108128: Fix right and left key re
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108128: Fix right and left key remapping issue (bug#12317) |
Date: |
Fri, 31 Aug 2012 13:38:50 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 108128
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Fri 2012-08-31 13:38:50 -0400
message:
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.
modified:
lisp/ChangeLog
lisp/emulation/cua-rect.el
lisp/play/blackbox.el
lisp/textmodes/picture.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-08-30 11:41:40 +0000
+++ b/lisp/ChangeLog 2012-08-31 17:38:50 +0000
@@ -1,3 +1,10 @@
+2012-08-31 Glenn Morris <address@hidden>
+
+ * 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 <address@hidden>
* progmodes/flymake.el (flymake-warning-re): New variable.
=== modified file 'lisp/emulation/cua-rect.el'
--- a/lisp/emulation/cua-rect.el 2012-03-10 08:26:45 +0000
+++ b/lisp/emulation/cua-rect.el 2012-08-31 17:38:50 +0000
@@ -1424,7 +1424,9 @@
(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)
=== modified file 'lisp/play/blackbox.el'
--- a/lisp/play/blackbox.el 2012-01-19 07:21:25 +0000
+++ b/lisp/play/blackbox.el 2012-08-31 17:38:50 +0000
@@ -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)
=== modified file 'lisp/textmodes/picture.el'
--- a/lisp/textmodes/picture.el 2012-02-21 17:09:19 +0000
+++ b/lisp/textmodes/picture.el 2012-08-31 17:38:50 +0000
@@ -620,7 +620,9 @@
(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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-24 r108128: Fix right and left key remapping issue (bug#12317),
Glenn Morris <=