From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 29 Jun 2013 15:20:46 +0000 (+0300)
Subject: Minor fix in right-char and left-char, per Stefan's comments.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1989
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79007321264153e8b4e6bfb9974ae6a99babe8c1;p=emacs.git

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

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)