diff options
| author |  Stephane Glondu <steph@glondu.net> | 2009-07-04 13:28:38 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2009-07-04 13:28:38 +0200 |
| commit | 3a420f4ad929e8372d32c735fd0fd89dfc0346a1 (patch) | |
| tree | 943a01d103c1296dc7c07cb188af994354c4d9a3 /lib | |
| parent | 1769cbaddea77112dd6f336316d8eb9a0945a1e6 (diff) | |
| parent | e4282ea99c664d8d58067bee199cbbcf881b60d5 (diff) | |
Merge commit 'upstream/8.2.pl1+dfsg'
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/util.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/util.ml b/lib/util.ml index a8a99c0b..dce36419 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (***********************************************************************) -(* $Id: util.ml 11897 2009-02-09 19:28:02Z barras $ *) +(* $Id: util.ml 12181 2009-06-10 20:53:09Z glondu $ *) open Pp @@ -257,7 +257,7 @@ let classify_unicode unicode = (* utf-8 arrows and brackets U27E0-U27FF *) | x when 0x27E0 <= x & x <= 0x27FF -> UnicodeSymbol (* utf-8 brackets, braces and parentheses *) - | x when 0x2980 <= x & x <= 0x299F -> UnicodeSymbol + | x when 0x2980 <= x & x <= 0x29FF -> UnicodeSymbol (* utf-8 miscellaneous including double-plus U29F0-U29FF *) | x when 0x29F0 <= x & x <= 0x29FF -> UnicodeSymbol | _ -> raise UnsupportedUtf8 |