vertical-motion on a composition

[KOBAYASHI Yasuhiro]

vertical-motion is not correct, if cursor is on a composition.

Please try the following:

M-x view-hello-file
M-x goto-char 289
M-: (vertical-motion 1)

How about this patch:
Index: src/indent.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/indent.c,v
retrieving revision 1.186
diff -u -r1.186 indent.c
--- src/indent.c        26 Sep 2006 19:25:35 -0000      1.186
+++ src/indent.c        19 Nov 2006 14:47:47 -0000
@@ -2088,10 +2088,10 @@
       it_start = IT_CHARPOS (it);
 
       /* We expect the call to move_it_to, further down, to overshoot
-        if the starting point is on an image, stretch glyph, or Lisp
-        string.  We won't need to backtrack in this situation, except
-        for one corner case: when the Lisp string contains a
-        newline.  */
+        if the starting point is on an image, stretch glyph,
+        composition, or Lisp string.  We won't need to backtrack in
+        this situation, except for one corner case: when the Lisp
+        string contains a newline.  */
       if (it.method == GET_FROM_STRING)
        {
          const char *s = SDATA (it.string);
@@ -2104,7 +2104,8 @@
        }
       else
        it_overshoot_expected_p = (it.method == GET_FROM_IMAGE
-                                  || it.method == GET_FROM_STRETCH);
+                                  || it.method == GET_FROM_STRETCH
+                                  || it.method == GET_FROM_COMPOSITION);
 
       reseat_at_previous_visible_line_start (&it);
       it.current_x = it.hpos = 0;

-- 
KOBAYASHI Yasuhiro <address@hidden>