xdisp.c (compute_stop_pos): Pay attention to bidi scan direction on calling compositi...

diff --git a/src/ChangeLog b/src/ChangeLog
index 39f168dc8a4424c177a980e80846332445fc8821..8a3714bcf0dcbf6f271ef0db9a3131d8f20cfda8 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-26  Kenichi Handa  <handa@m17n.org>
+
+       * xdisp.c (compute_stop_pos): Pay attention to bidi scan direction
+       on calling composition_compute_stop_pos.
+
 2010-08-25  Kenichi Handa  <handa@m17n.org>
 
        * fontset.c (reorder_font_vector): Prefer a font-spec specifying

diff --git a/src/xdisp.c b/src/xdisp.c
index 93fdb68eeac42f3f6c6a14e932046cdf88840d30..07078a199a33b631ccfcceaaceb8164cefa68d17 100644 (file)
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -3177,7 +3177,7 @@ compute_stop_pos (struct it *it)
 {
   register INTERVAL iv, next_iv;
   Lisp_Object object, limit, position;
-  EMACS_INT charpos, bytepos;
+  EMACS_INT charpos, bytepos, stoppos;
 
   /* If nowhere else, stop at the end.  */
   it->stop_charpos = it->end_charpos;
@@ -3267,8 +3267,12 @@ compute_stop_pos (struct it *it)
        }
     }
 
+  if (it->bidi_p && it->bidi_it.scan_dir < 0)
+    stoppos = -1;
+  else
+    stoppos = it->stop_charpos;
   composition_compute_stop_pos (&it->cmp_it, charpos, bytepos,
-                               it->stop_charpos, it->string);
+                               stoppos, it->string);
 
   xassert (STRINGP (it->string)
           || (it->stop_charpos >= BEGV