Minor fix in right-char and left-char, per Stefan's comments.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 7c42cc6c0a82fce6afaa2899e9b3dc09fcff374b..a3aef3244bc88b80ee537e9ead96655cbbff985f 100644 (file)
--- 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)