[Emacs-diffs] trunk r113222: Minor fix in right-char and left-char, per Stefan's comments.

[Eli Zaretskii]

------------------------------------------------------------
revno: 113222
revision-id: address@hidden
parent: address@hidden
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2013-06-29 18:20:46 +0300
message:
  Minor fix in right-char and left-char, per Stefan's comments.
modified:
  lisp/bindings.el               
bindings.el-20091113204419-o5vbwnq5f7feedwu-1013

=== modified file 'lisp/bindings.el'
--- a/lisp/bindings.el  2013-06-29 13:36:19 +0000
+++ b/lisp/bindings.el  2013-06-29 15:20:46 +0000
@@ -725,9 +725,7 @@
   (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 @@
   (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)