Mercurial > emacs
diff lisp/bindings.el @ 108596:cd5442b2826b
Implement bidi-sensitive movement with arrow keys.
src/bidi.c (bidi_paragraph_init): Don't leave alone garbage values
of bidi_it->paragraph_dir. Call bidi_initialize if needed.
src/xdisp.c (Fcurrent_bidi_paragraph_direction): New function.
(syms_of_xdisp): Defsubr it.
src/cmds.c (Fforward_char, Fbackward_char): Doc fix.
src/subr.el (right-arrow-command, left-arrow-command): New functions.
src/bindings.el (global-map): Bind them to right and left arrow keys.
etc/NEWS: Mention current-bidi-paragraph-direction
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 15 May 2010 16:23:48 +0300 |
| parents | 7aa45e6e5f62 |
| children | 8aaae2681a62 |
line wrap: on
line diff
--- a/lisp/bindings.el Sat May 15 11:38:48 2010 +0300 +++ b/lisp/bindings.el Sat May 15 16:23:48 2010 +0300 @@ -828,9 +828,9 @@ (define-key global-map [C-home] 'beginning-of-buffer) (define-key global-map [M-home] 'beginning-of-buffer-other-window) (define-key esc-map [home] 'beginning-of-buffer-other-window) -(define-key global-map [left] 'backward-char) +(define-key global-map [left] 'left-arrow-command) (define-key global-map [up] 'previous-line) -(define-key global-map [right] 'forward-char) +(define-key global-map [right] 'right-arrow-command) (define-key global-map [down] 'next-line) (define-key global-map [prior] 'scroll-down-command) (define-key global-map [next] 'scroll-up-command)