# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1257888177 0
# Node ID 88b92b3656ae9ec858dce29ab3443c78d6fc3c52
# Parent  45191c90be7ee7ca76fd9beb12935104bb2b572a
(Fplist_get): Merge the active and the uncommented code.

diff -r 45191c90be7e -r 88b92b3656ae src/ChangeLog
--- a/src/ChangeLog	Tue Nov 10 19:06:40 2009 +0000
+++ b/src/ChangeLog	Tue Nov 10 21:22:57 2009 +0000
@@ -1,3 +1,7 @@
+2009-11-10  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* fns.c (Fplist_get): Merge the active and the uncommented code.
+
 2009-11-10  Jan Djärv  <jan.h.d@swipnet.se>
 
 	* keyboard.h: Declare timer_check.
@@ -12,7 +16,8 @@
 	* xmenu.c (x_menu_wait_for_event): Remove code that did a timeout
 	even if timer_check returned -1.
 
-	* gtkutil.c (xg_dialog_response_cb): data is now a struct xg_dialog_data
+	* gtkutil.c (xg_dialog_response_cb): Data is now a struct
+	xg_dialog_data.
 	(pop_down_dialog): Destroy widget (if any), cancel timer and unref
 	the event loop.
 	(xg_maybe_add_timer, xg_dialog_run): New functions (bug #4574).
diff -r 45191c90be7e -r 88b92b3656ae src/fns.c
--- a/src/fns.c	Tue Nov 10 19:06:40 2009 +0000
+++ b/src/fns.c	Tue Nov 10 21:22:57 2009 +0000
@@ -1927,38 +1927,6 @@
 }
 
 
-#if 0 /* Unsafe version.  */
-DEFUN ("plist-get", Fplist_get, Splist_get, 2, 2, 0,
-       doc: /* Extract a value from a property list.
-PLIST is a property list, which is a list of the form
-\(PROP1 VALUE1 PROP2 VALUE2...).  This function returns the value
-corresponding to the given PROP, or nil if PROP is not
-one of the properties on the list.  */)
-     (plist, prop)
-     Lisp_Object plist;
-     Lisp_Object prop;
-{
-  Lisp_Object tail;
-
-  for (tail = plist;
-       CONSP (tail) && CONSP (XCDR (tail));
-       tail = XCDR (XCDR (tail)))
-    {
-      if (EQ (prop, XCAR (tail)))
-	return XCAR (XCDR (tail));
-
-      /* This function can be called asynchronously
-	 (setup_coding_system).  Don't QUIT in that case.  */
-      if (!interrupt_input_blocked)
-	QUIT;
-    }
-
-  CHECK_LIST_END (tail, prop);
-
-  return Qnil;
-}
-#endif
-
 /* This does not check for quits.  That is safe since it must terminate.  */
 
 DEFUN ("plist-get", Fplist_get, Splist_get, 2, 2, 0,
@@ -1984,6 +1952,13 @@
       halftail = XCDR (halftail);
       if (EQ (tail, halftail))
 	break;
+
+#if 0 /* Unsafe version.  */
+      /* This function can be called asynchronously
+	 (setup_coding_system).  Don't QUIT in that case.  */
+      if (!interrupt_input_blocked)
+	QUIT;
+#endif
     }
 
   return Qnil;