From 088c8c37e60a2c4562a828cf0202cc820512662d Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 Sep 2007 01:45:39 +0000
Subject: (Fplist_put): Preserve uneven tail data.

---
 src/fns.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/fns.c')

diff --git a/src/fns.c b/src/fns.c
index 59cb2e3c9f..49db42a58a 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
-- 
cgit v1.2.3