From 79007321264153e8b4e6bfb9974ae6a99babe8c1 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 29 Jun 2013 18:20:46 +0300 Subject: [PATCH] Minor fix in right-char and left-char, per Stefan's comments. --- lisp/bindings.el | 8 ++------ 1 file 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) -- 2.39.2