<<peeters` ;

Clear[p] 
p = Module[{h},
h = 10 ;
Plot[ Evaluate@Table[(((-g+k))^2),{g,-5,5}],
{k, -1, 1}, 
PlotRange->{Full, {-2, h}}, 
Ticks -> None,
AxesLabel -> { k, None },
(*PlotLegends -> Table[ "E"[k -2 Pi m/a] , {m, -5, 5}],*)
Epilog ->  Flatten[ Table[{Line[{{m/2, 0}, {m/2, h}}],Text[m Pi/2,{m /2, -0.8}]},{m, -1, 1, 2}] 
]
]
]

peeters`lblPlot[p]