Mercurial > emacs

diff src/fns.c @ 78824:c33d8980019c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fplist_put): Preserve uneven tail data.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 18 Sep 2007 01:45:39 +0000
parents 922696f363b0
children fc2bcd2a8aad 5039706521c9
line wrap: on
line diff
--- a/src/fns.c	Tue Sep 18 01:29:04 2007 +0000
+++ b/src/fns.c	Tue Sep 18 01:45:39 2007 +0000
@@ -2060,7 +2060,7 @@
       prev = tail;
       QUIT;
     }
-  newcell = Fcons (prop, Fcons (val, Qnil));
+  newcell = Fcons (prop, Fcons (val, NILP (prev) ? plist : XCDR (XCDR (prev))));
   if (NILP (prev))
     return newcell;
   else