# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1139965533 0
# Node ID f157b409991c65f79fac494a661ddc97988926a5
# Parent  2fb019baf00b0c11a4e79916932ebf618bd247f3
(x_get_arg): Clear out all occurrences of PARAM in ALIST.

diff -r 2fb019baf00b -r f157b409991c src/frame.c
--- a/src/frame.c	Wed Feb 15 00:18:44 2006 +0000
+++ b/src/frame.c	Wed Feb 15 01:05:33 2006 +0000
@@ -3526,7 +3526,14 @@
 	 so that it won't be "left over" at the end.  */
 #ifdef HAVE_X_WINDOWS /* macfns.c and w32fns.c have not yet
 			 been changed to cope with this.  */
+      Lisp_Object tail;
       XSETCAR (tem, Qnil);
+      /* In case the parameter appears more than once in the alist,
+	 clear it out.  */
+      for (tail = alist; CONSP (tail); tail = XCDR (tail))
+	if (CONSP (XCAR (tail))
+	    && EQ (XCAR (XCAR (tail)), param))
+	  XSETCAR (XCAR (tail), Qnil);
 #endif
     }
   else