Avoid bidi-related crashes in Cperl Mode.

 src/bidi.c (bidi_paragraph_init): Test for ZV_BYTE before calling
 bidi_at_paragraph_end, since fast_looking_at doesn't like to be
 called at ZV.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2c8b22dc321e5b2e2d0c5fc3df2610377b28b4d9..1b395f865c8e1969c3815ab99d262dc805232473 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2011-06-26  Eli Zaretskii  <eliz@gnu.org>
+
+       * bidi.c (bidi_paragraph_init): Test for ZV_BYTE before calling
+       bidi_at_paragraph_end, since fast_looking_at doesn't like to be
+       called at ZV.
+
 2011-06-26  Chong Yidong  <cyd@stupidchicken.com>
 
        * process.c (wait_reading_process_output): Bypass select if

diff --git a/src/bidi.c b/src/bidi.c
index 1f3b196d5a41d35d49d583dd6bfae07f698e284c..469afdb3819c020514b5cbea09216dbeb1e20604 100644 (file)
--- a/src/bidi.c
+++ b/src/bidi.c
@@ -744,8 +744,6 @@ bidi_paragraph_init (bidi_dir_t dir, struct bidi_it *bidi_it, int no_default_p)
                       || type == LRE || type == LRO));
             type = bidi_get_type (ch, NEUTRAL_DIR))
          {
-           if (type == NEUTRAL_B && bidi_at_paragraph_end (pos, bytepos) >= -1)
-             break;
            if (bytepos >= ZV_BYTE)
              {
                /* Pretend there's a paragraph separator at end of
@@ -753,6 +751,8 @@ bidi_paragraph_init (bidi_dir_t dir, struct bidi_it *bidi_it, int no_default_p)
                type = NEUTRAL_B;
                break;
              }
+           if (type == NEUTRAL_B && bidi_at_paragraph_end (pos, bytepos) >= -1)
+             break;
            /* Fetch next character and advance to get past it.  */
            ch = bidi_fetch_char (bytepos, pos, &disp_pos,
                                  bidi_it->frame_window_p, &ch_len, &nchars);