From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 26 Jun 2000 21:53:57 +0000 (+0000)
Subject: (Fplist_member): Renamed from Fwidget_plist_member.
X-Git-Tag: emacs-pretest-21.0.90~3056
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a52548173c3bba05107a5114db156cfcdc9820ad;p=emacs.git

(Fplist_member): Renamed from Fwidget_plist_member.
(Fwidget_get): Use it.
(syms_of_fns): Defsubr it.
---

diff --git a/src/fns.c b/src/fns.c
index cf1300a6cd8..3135ce5fffd 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2950,7 +2950,7 @@ Normally the return value is FEATURE.")
    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 @@ later with `widget-put'.")
       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 @@ invoked by mouse clicks and mouse menu items.");
   defsubr (&Sfeaturep);
   defsubr (&Srequire);
   defsubr (&Sprovide);
-  defsubr (&Swidget_plist_member);
+  defsubr (&Splist_member);
   defsubr (&Swidget_put);
   defsubr (&Swidget_get);
   defsubr (&Swidget_apply);