# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1190079939 0
# Node ID c33d8980019ccc5d59b26400e3febe81179fcc1b
# Parent  3507e8974e134e1ebbd692fff83359949a148469
(Fplist_put): Preserve uneven tail data.

diff -r 3507e8974e13 -r c33d8980019c src/ChangeLog
--- a/src/ChangeLog	Tue Sep 18 01:29:04 2007 +0000
+++ b/src/ChangeLog	Tue Sep 18 01:45:39 2007 +0000
@@ -1,3 +1,7 @@
+2007-09-18  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* fns.c (Fplist_put): Preserve uneven tail data.
+
 2007-09-16  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
 	* gtkutil.c (xg_get_image_for_pixmap): Always create a GdkPixbuf
diff -r 3507e8974e13 -r c33d8980019c src/fns.c
--- 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