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

[Miles Bader]

Index: emacs/src/textprop.c
diff -c emacs/src/textprop.c:1.128.2.3 emacs/src/textprop.c:1.128.2.4
*** emacs/src/textprop.c:1.128.2.3      Sun Dec 28 05:20:01 2003
--- emacs/src/textprop.c        Tue Jul  6 09:14:37 2004
***************
*** 637,666 ****
      }
    if (BUFFERP (object))
      {
-       int posn = XINT (position);
        int noverlays;
!       Lisp_Object *overlay_vec, tem;
!       int len;
        struct buffer *obuf = current_buffer;
  
        set_buffer_temp (XBUFFER (object));
  
!       /* First try with room for 40 overlays.  */
!       len = 40;
!       overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
! 
!       noverlays = overlays_at (posn, 0, &overlay_vec, &len,
!                              NULL, NULL, 0);
! 
!       /* If there are more than 40,
!        make enough space for all, and try again.  */
!       if (noverlays > len)
!       {
!         len = noverlays;
!         overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
!         noverlays = overlays_at (posn, 0, &overlay_vec, &len,
!                                  NULL, NULL, 0);
!       }
        noverlays = sort_overlays (overlay_vec, noverlays, w);
  
        set_buffer_temp (obuf);
--- 637,649 ----
      }
    if (BUFFERP (object))
      {
        int noverlays;
!       Lisp_Object *overlay_vec;
        struct buffer *obuf = current_buffer;
  
        set_buffer_temp (XBUFFER (object));
  
!       GET_OVERLAYS_AT (XINT (position), overlay_vec, noverlays, NULL, 0);
        noverlays = sort_overlays (overlay_vec, noverlays, w);
  
        set_buffer_temp (obuf);
***************
*** 668,674 ****
        /* Now check the overlays in order of decreasing priority.  */
        while (--noverlays >= 0)
        {
!         tem = Foverlay_get (overlay_vec[noverlays], prop);
          if (!NILP (tem))
            {
              if (overlay)
--- 651,657 ----
        /* Now check the overlays in order of decreasing priority.  */
        while (--noverlays >= 0)
        {
!         Lisp_Object tem = Foverlay_get (overlay_vec[noverlays], prop);
          if (!NILP (tem))
            {
              if (overlay)