@@ -1131,7 +1131,7 @@ likelyAbbrev x =
1131 "Gen.", "Gov.", "e.g.", "i.e.", "Sgt.", "St.",
1131 "Gen.", "Gov.", "e.g.", "i.e.", "Sgt.", "St.",
1132 "vol.", "vs.", "Sen.", "Rep.", "Pres.", "Hon.",
1132 "vol.", "vs.", "Sen.", "Rep.", "Pres.", "Hon.",
1133 "Rev.", "Ph.D.", "M.D.", "M.A.", "p.", "pp.",
1133 "Rev.", "Ph.D.", "M.D.", "M.A.", "p.", "pp.",
1134− "ch.", "sec." ]
1134+ "ch.", "sec.", "cf.", "cp."]
1135 abbrPairs = map (break (=='.')) abbrevs
1135 abbrPairs = map (break (=='.')) abbrevs
1136 in map snd $ filter (\(y,_) -> y == x) abbrPairs
1136 in map snd $ filter (\(y,_) -> y == x) abbrPairs