Use the WolframAlpha API in Mathematica give you the result:
data = WolframAlpha["edible Fruits", {{"Hyponym:WordData", 1}, "ComputableData"},
PodStates -> {"Hyponym:WordData__More", "Hyponym:WordData__More", "Hyponym:WordData__More", "Hyponym:WordData__More"}]
Filter the result:
In[27]:= Cases[data,x_/;StringMatchQ[x,"m"~~__]]
Out[27]= {mamey,mammee,mammee apple,mango,mangosteen,marang,marmalade plum,medlar,melon,mombin,monstera}
If you work with Python well, you can follow
this link to create a list from the wolfram alpha API in general.