diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2013-06-29 18:20:46 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2013-06-29 18:20:46 +0300 |
| commit | 79007321264153e8b4e6bfb9974ae6a99babe8c1 (patch) | |
| tree | e0e07360e84c3c19db9e2f1b92c16aa0bc403260 /lisp/bindings.el | |
| parent | 4c672a0fec1d18cc1a445acf3e6935d681d4048f (diff) | |
| download | emacs-79007321264153e8b4e6bfb9974ae6a99babe8c1.tar.gz | |
Minor fix in right-char and left-char, per Stefan's comments.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 7c42cc6c0a8..a3aef3244bc 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -725,9 +725,7 @@ see." (interactive "^p") (if visual-order-cursor-movement (dotimes (i (if (numberp n) (abs n) 1)) - (if (< n 0) - (move-point-visually -1) - (move-point-visually 1)) + (move-point-visually (if (< n 0) -1 1)) (sit-for 0)) (if (eq (current-bidi-paragraph-direction) 'left-to-right) (forward-char n) @@ -746,9 +744,7 @@ see." (interactive "^p") (if visual-order-cursor-movement (dotimes (i (if (numberp n) (abs n) 1)) - (if (< n 0) - (move-point-visually 1) - (move-point-visually -1)) + (move-point-visually (if (< n 0) 1 -1)) (sit-for 0)) (if (eq (current-bidi-paragraph-direction) 'left-to-right) (backward-char n) |