Mercurial > emacs
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; |