Why are the options not getting to ListPlot?
Options[f] = Flatten[{Flatten[Options /@ {ListPlot}, 1]}, 1];
f[x_, opts : OptionsPattern[]] :=
Module[
{},
Print[Evaluate[FilterRules[{opts}, Options[ListPlot]]]];
ListPlot[x,
PlotStyle -> Evaluate[FilterRules[{opts}, Options[ListPlot]]]
]
]
f[{1, 3, 5}]
f[{1, 3, 5}, Joined -> True, PlotStyle -> Red]
Attachments: