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

[Stefan Monnier]

Index: emacs/src/textprop.c
diff -c emacs/src/textprop.c:1.126 emacs/src/textprop.c:1.127
*** emacs/src/textprop.c:1.126  Mon Apr 22 13:56:38 2002
--- emacs/src/textprop.c        Mon Apr 29 15:29:58 2002
***************
*** 463,474 ****
      tail1 = list, use_plist = 0;
  
    /* Go through each element of LIST or PLIST.  */
!   while (! NILP (tail1))
      {
        sym = XCAR (tail1);
  
        /* First, remove the symbol if it's at the head of the list */
!       while (! NILP (current_plist) && EQ (sym, XCAR (current_plist)))
        {
          if (BUFFERP (object))
            record_property_change (i->position, LENGTH (i),
--- 463,474 ----
      tail1 = list, use_plist = 0;
  
    /* Go through each element of LIST or PLIST.  */
!   while (CONSP (tail1))
      {
        sym = XCAR (tail1);
  
        /* First, remove the symbol if it's at the head of the list */
!       while (CONSP (current_plist) && EQ (sym, XCAR (current_plist)))
        {
          if (BUFFERP (object))
            record_property_change (i->position, LENGTH (i),
***************
*** 485,491 ****
        {
          register Lisp_Object this;
          this = XCDR (XCDR (tail2));
!         if (EQ (sym, XCAR (this)))
            {
              if (BUFFERP (object))
                record_property_change (i->position, LENGTH (i),
--- 485,491 ----
        {
          register Lisp_Object this;
          this = XCDR (XCDR (tail2));
!         if (CONSP (this) && EQ (sym, XCAR (this)))
            {
              if (BUFFERP (object))
                record_property_change (i->position, LENGTH (i),