Support '+' in canonical maps (Fix #220)

89e05d3e · Raphaël Pinson · Raphaël Pinson · 623ea82c · 89e05d3e
Commit 89e05d3e authored Oct 18, 2018 by Raphaël Pinson Committed by Raphaël Pinson Oct 18, 2018
--- a/files/lenses/postfix_canonical.aug
+++ b/files/lenses/postfix_canonical.aug
@@ -32,7 +32,7 @@ let space_or_eol (sep:regexp) (default:string) =
  del (space_or_eol_re? . sep . space_or_eol_re?) default 

 (* View: word *)
-let word = store /[A-Za-z0-9@\*.-]+/
+let word = store /[A-Za-z0-9@\*.+-]+/

 (* View: comma *)
 let comma = space_or_eol "," ", "