@@ -402,7 +402,8 @@ elementToBeamer slideLevel (Sec lvl _num (ident,classes,kvs) tit elts)
402402 not (null $ query hasCodeBlock elts ++ query hasCode elts)
403403 let frameoptions = ["allowdisplaybreaks", "allowframebreaks", "fragile",
404404 "b", "c", "t", "environment",
405− "label", "plain", "shrink", "standout"]
405+ "label", "plain", "shrink", "standout",
406+ "noframenumbering"]
406407 let optionslist = ["fragile" | fragile && isNothing (lookup "fragile" kvs)] ++
407408 [k | k <- classes, k `elem` frameoptions] ++
408409 [k ++ "=" ++ v | (k,v) <- kvs, k `elem` frameoptions]