From a52548173c3bba05107a5114db156cfcdc9820ad Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 26 Jun 2000 21:53:57 +0000 Subject: [PATCH] (Fplist_member): Renamed from Fwidget_plist_member. (Fwidget_get): Use it. (syms_of_fns): Defsubr it. --- src/fns.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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); -- 2.11.4.GIT