Markdown reader: Added cf. and cp. to list of likely abbreviations.

This commit is contained in:
John MacFarlane 2012-06-04 11:13:41 -07:00
parent 927b5997d8
commit 0dab912c22

View file

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