[Emacs-diffs] Changes to emacs/src/coding.c [lexbind]

[Miles Bader]

Index: emacs/src/coding.c
diff -c emacs/src/coding.c:1.245.2.2 emacs/src/coding.c:1.245.2.3
*** emacs/src/coding.c:1.245.2.2        Tue Oct 14 19:16:39 2003
--- emacs/src/coding.c  Thu Nov 20 19:36:16 2003
***************
*** 1689,1694 ****
--- 1689,1695 ----
      coding->cmp_data->next = cmp_data;
    coding->cmp_data = cmp_data;
    coding->cmp_data_start = 0;
+   coding->composing = COMPOSITION_NO;
  }
  
  /* Handle composition start sequence ESC 0, ESC 2, ESC 3, or ESC 4.
***************
*** 5440,5445 ****
--- 5441,5450 ----
          enum composition_method method = (enum composition_method) data[3];
          Lisp_Object components;
  
+         if (data[0] < 0 || i + data[0] > cmp_data->used)
+           /* Invalid composition data.  */
+           break;
+ 
          if (method == COMPOSITION_RELATIVE)
            components = Qnil;
          else
***************
*** 5453,5459 ****
              for (j = 0; j < len; j++)
                args[j] = make_number (data[4 + j]);
              components = (method == COMPOSITION_WITH_ALTCHARS
!                           ? Fstring (len, args) : Fvector (len, args));
            }
          compose_text (data[1], data[2], components, Qnil, obj);
        }
--- 5458,5465 ----
              for (j = 0; j < len; j++)
                args[j] = make_number (data[4 + j]);
              components = (method == COMPOSITION_WITH_ALTCHARS
!                           ? Fstring (len, args)
!                           : Fvector (len, args));
            }
          compose_text (data[1], data[2], components, Qnil, obj);
        }