comparison src/fns.c @ 85114:5039706521c9

Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-875
author Miles Bader <miles@gnu.org>
date Tue, 09 Oct 2007 08:52:57 +0000
parents a0c901e4e649 c33d8980019c
children 0bc184c59770 bdb3fe0ba9fa
comparison
equal deleted inserted replaced
85113:82b4a12fd080 85114:5039706521c9
2058 } 2058 }
2059 2059
2060 prev = tail; 2060 prev = tail;
2061 QUIT; 2061 QUIT;
2062 } 2062 }
2063 newcell = Fcons (prop, Fcons (val, Qnil)); 2063 newcell = Fcons (prop, Fcons (val, NILP (prev) ? plist : XCDR (XCDR (prev))));
2064 if (NILP (prev)) 2064 if (NILP (prev))
2065 return newcell; 2065 return newcell;
2066 else 2066 else
2067 Fsetcdr (XCDR (prev), newcell); 2067 Fsetcdr (XCDR (prev), newcell);
2068 return plist; 2068 return plist;