/[emacs]/emacs/src/textprop.c
ViewVC logotype

Diff of /emacs/src/textprop.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.126 by kfstorm, Mon Apr 22 17:56:38 2002 UTC revision 1.127 by monnier, Mon Apr 29 19:29:58 2002 UTC
# Line 463  remove_properties (plist, list, i, objec Line 463  remove_properties (plist, list, i, objec
463      tail1 = list, use_plist = 0;      tail1 = list, use_plist = 0;
464    
465    /* Go through each element of LIST or PLIST.  */    /* Go through each element of LIST or PLIST.  */
466    while (! NILP (tail1))    while (CONSP (tail1))
467      {      {
468        sym = XCAR (tail1);        sym = XCAR (tail1);
469    
470        /* First, remove the symbol if it's at the head of the list */        /* First, remove the symbol if it's at the head of the list */
471        while (! NILP (current_plist) && EQ (sym, XCAR (current_plist)))        while (CONSP (current_plist) && EQ (sym, XCAR (current_plist)))
472          {          {
473            if (BUFFERP (object))            if (BUFFERP (object))
474              record_property_change (i->position, LENGTH (i),              record_property_change (i->position, LENGTH (i),
# Line 485  remove_properties (plist, list, i, objec Line 485  remove_properties (plist, list, i, objec
485          {          {
486            register Lisp_Object this;            register Lisp_Object this;
487            this = XCDR (XCDR (tail2));            this = XCDR (XCDR (tail2));
488            if (EQ (sym, XCAR (this)))            if (CONSP (this) && EQ (sym, XCAR (this)))
489              {              {
490                if (BUFFERP (object))                if (BUFFERP (object))
491                  record_property_change (i->position, LENGTH (i),                  record_property_change (i->position, LENGTH (i),

Legend:
Removed from v.1.126  
changed lines
  Added in v.1.127

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26