From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 Sep 2007 01:45:39 +0000 (+0000)
Subject: (Fplist_put): Preserve uneven tail data.
X-Git-Tag: emacs-pretest-22.1.90~789
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=088c8c37e60a2c4562a828cf0202cc820512662d;p=emacs.git

(Fplist_put): Preserve uneven tail data.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index c69e579d70b..8bc8f1a9056 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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 --git a/src/fns.c b/src/fns.c
index 59cb2e3c9f6..49db42a58ac 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2060,7 +2060,7 @@ The PLIST is modified by side effects.  */)
       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