(Fplist_put): Preserve uneven tail data.

088c8c37 · Stefan Monnier · fa5cea67 · 088c8c37 · 088c8c37
Commit 088c8c37 authored Sep 18, 2007 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

src/ChangeLog src/ChangeLog +4 -0

src/fns.c src/fns.c +1 -1

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+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

--- 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