# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 962056437 0
# Node ID dad7b11391a36498d806e789925ba56986c8ccd1
# Parent  3e2589e69a8a0290acc09d2123eecb3c1cdf7a67
(Fplist_member): Renamed from Fwidget_plist_member.
(Fwidget_get): Use it.
(syms_of_fns): Defsubr it.

diff -r 3e2589e69a8a -r dad7b11391a3 src/fns.c
--- a/src/fns.c	Mon Jun 26 20:02:42 2000 +0000
+++ b/src/fns.c	Mon Jun 26 21:53:57 2000 +0000
@@ -2950,7 +2950,7 @@
    bottleneck of Widget operation.  Here is their translation to C,
    for the sole reason of efficiency.  */
 
-DEFUN ("widget-plist-member", Fwidget_plist_member, Swidget_plist_member, 2, 2, 0,
+DEFUN ("plist-member", Fplist_member, Splist_member, 2, 2, 0,
   "Return non-nil if PLIST has the property PROP.\n\
 PLIST is a property list, which is a list of the form\n\
 \(PROP1 VALUE1 PROP2 VALUE2 ...\).  PROP is a symbol.\n\
@@ -2994,7 +2994,7 @@
       if (NILP (widget))
 	return Qnil;
       CHECK_CONS (widget, 1);
-      tmp = Fwidget_plist_member (XCDR (widget), property);
+      tmp = Fplist_member (XCDR (widget), property);
       if (CONSP (tmp))
 	{
 	  tmp = XCDR (tmp);
@@ -4907,7 +4907,7 @@
   defsubr (&Sfeaturep);
   defsubr (&Srequire);
   defsubr (&Sprovide);
-  defsubr (&Swidget_plist_member);
+  defsubr (&Splist_member);
   defsubr (&Swidget_put);
   defsubr (&Swidget_get);
   defsubr (&Swidget_apply);