(* $Id: FilterOptions.m,v 1.2 1991/08/14 23:48:05 rory Exp $ *)

(*********************************************************************

        Adapted from
        Roman E. Maeder: Programming in Mathematica,
        Second Edition, Addison-Wesley, 1991.

 *********************************************************************)


BeginPackage["Utilities`FilterOptions`"]

FilterOptions::usage = "FilterOptions[symbol, options...] returns a sequence
	of those options that are valid options for symbol."

Begin["`Private`"]

FilterOptions[ command_Symbol, opts___ ] :=
	Block[{keywords = First /@ Options[command]},
		Sequence @@ Select[ {opts}, MemberQ[keywords, First[#]]& ]
	]

End[]
EndPackage[]