Don't call sit-for in right-char and left-char for visual cursor motion.

 src/xdisp.c (Fmove_point_visually): Invalidate the cursor position
 when moving point by using the current glyph matrix.  This avoids
 the need to force redisplay when this function is called in a
 loop.

 lisp/bindings.el (right-char, left-char): Don't call sit-for, this is
 no longer needed.  Use arithmetic comparison only for numerical
 arguments.

2 files changed, 14 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 2f1c553576f..f10e1070fa3 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
+2013-06-30  Eli Zaretskii  <eliz@gnu.org>
+
+        * xdisp.c (Fmove_point_visually): Invalidate the cursor position
+        when moving point by using the current glyph matrix.  This avoids
+        the need to force redisplay when this function is called in a
+        loop.
+
 2013-06-29  Paul Eggert  <eggert@cs.ucla.edu>
 
         Fix minor problems found by static checking.
diff --git a/src/xdisp.c b/src/xdisp.c
index 963553e10cc..660c6b9130f 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -20107,6 +20107,7 @@ Value is the new character position of point.  */)
           if (BUFFERP (g->object) && g->charpos != PT)
             {
               SET_PT (g->charpos);
+              w->cursor.vpos = -1;
               return make_number (PT);
             }
           else if (!INTEGERP (g->object) && g->object != gpt->object)
@@ -20126,6 +20127,7 @@ Value is the new character position of point.  */)
               else
                 break;
               SET_PT (new_pos);
+              w->cursor.vpos = -1;
               return make_number (PT);
             }
           else if (ROW_GLYPH_NEWLINE_P (row, g))
@@ -20141,6 +20143,7 @@ Value is the new character position of point.  */)
                 SET_PT (MATRIX_ROW_END_CHARPOS (row) - 1);
               else
                 break;
+              w->cursor.vpos = -1;
               return make_number (PT);
             }
         }
@@ -20161,6 +20164,7 @@ Value is the new character position of point.  */)
               if (row->reversed_p && !row->continued_p)
                 {
                   SET_PT (MATRIX_ROW_END_CHARPOS (row) - 1);
+                  w->cursor.vpos = -1;
                   return make_number (PT);
                 }
               g = row->glyphs[TEXT_AREA];
@@ -20188,6 +20192,7 @@ Value is the new character position of point.  */)
                         SET_PT (ZV);
                       else
                         continue;
+                      w->cursor.vpos = -1;
                       return make_number (PT);
                     }
                 }
@@ -20197,6 +20202,7 @@ Value is the new character position of point.  */)
               if (!row->reversed_p && !row->continued_p)
                 {
                   SET_PT (MATRIX_ROW_END_CHARPOS (row) - 1);
+                  w->cursor.vpos = -1;
                   return make_number (PT);
                 }
               e = row->glyphs[TEXT_AREA];
@@ -20224,6 +20230,7 @@ Value is the new character position of point.  */)
                         SET_PT (ZV);
                       else
                         continue;
+                      w->cursor.vpos = -1;
                       return make_number (PT);
                     }
                 }