Fix processing of brackets in isolates and crash in w32select.c.

diff --git a/src/bidi.c b/src/bidi.c
index 186390e331b49a4ac4d087c5667616799621f574..abcfa2a9b9006af9970e0a70e6361279cdbc92f9 100644 (file)
--- a/src/bidi.c
+++ b/src/bidi.c
@@ -2405,6 +2405,15 @@ bidi_find_bracket_pairs (struct bidi_it *bidi_it)
          int old_sidx, new_sidx;
          int current_level = bidi_it->level_stack[bidi_it->stack_idx].level;
 
+         /* Mark every opening bracket character we've traversed by
+            putting its own position into bracket_pairing_pos.  This
+            is examined in bidi_resolve_brackets to distinguish
+            brackets that were already resolved to stay NEUTRAL_ON,
+            and those that were not yet processed by this function
+            (because they were skipped when we skip higher embedding
+            levels below).  */
+         if (btype == BIDI_BRACKET_OPEN && bidi_it->bracket_pairing_pos == -1)
+           bidi_it->bracket_pairing_pos = bidi_it->charpos;
          bidi_cache_iterator_state (bidi_it, type == NEUTRAL_B, 0);
          if (btype == BIDI_BRACKET_OPEN)
            PUSH_BPA_STACK;
@@ -2575,23 +2584,20 @@ bidi_resolve_brackets (struct bidi_it *bidi_it)
         to an isolate initiator, we need to update the 1st cached
         state of the next run of the current isolating sequence with
         the prev_for_neutral information, so that it will be picked
-        up when we advanced to that next run.  */
+        up when we advance to that next run.  */
       if (bidi_it->level_stack[bidi_it->stack_idx].level > prev_level
          && bidi_it->level_stack[bidi_it->stack_idx].isolate_status)
        bidi_record_prev_for_neutral (&tem_info, prev_level);
       if (type == NEUTRAL_ON
          && bidi_paired_bracket_type (ch) == BIDI_BRACKET_OPEN)
        {
-         if (bidi_it->level_stack[bidi_it->stack_idx].level <= prev_level)
+         if (bidi_it->bracket_pairing_pos > bidi_it->charpos)
            {
-             if (bidi_it->bracket_pairing_pos > 0)
-               {
-                 /* A cached opening bracket that wasn't completely
-                    resolved yet.  */
-                 resolve_bracket = true;
-               }
+             /* A cached opening bracket that wasn't completely
+                resolved yet.  */
+             resolve_bracket = true;
            }
-         else
+         else if (bidi_it->bracket_pairing_pos == -1)
            {
              /* Higher levels were not BPA-resolved yet, even if
                 cached by bidi_find_bracket_pairs.  Force application

diff --git a/src/w32select.c b/src/w32select.c
index 7c21dde01a581b10b165bb2ee2c05e8fc076e40b..9fa84ca5c54fec03c56872e52e4539917333a4e2 100644 (file)
--- a/src/w32select.c
+++ b/src/w32select.c
@@ -95,8 +95,8 @@ static Lisp_Object render_locale (void);
 static Lisp_Object render_all (Lisp_Object ignore);
 static void run_protected (Lisp_Object (*code) (Lisp_Object), Lisp_Object arg);
 static Lisp_Object lisp_error_handler (Lisp_Object error);
-static LRESULT CALLBACK owner_callback (HWND win, UINT msg,
-                                       WPARAM wp, LPARAM lp);
+static LRESULT CALLBACK ALIGN_STACK owner_callback (HWND win, UINT msg,
+                                                   WPARAM wp, LPARAM lp);
 static HWND create_owner (void);
 
 static void setup_config (void);
@@ -420,7 +420,7 @@ lisp_error_handler (Lisp_Object error)
 }
 
 
-static LRESULT CALLBACK
+static LRESULT CALLBACK ALIGN_STACK
 owner_callback (HWND win, UINT msg, WPARAM wp, LPARAM lp)
 {
   switch (msg)