diff options
| author | Kenichi Handa <handa@m17n.org> | 2007-03-05 01:45:04 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2007-03-05 01:45:04 +0000 |
| commit | 661f3ce930c4ebef15faabc989e6d595bce79c84 (patch) | |
| tree | 07603591b3c8e9261f531e888752fd022ac196d2 /lisp/international | |
| parent | 4968aeffb393a468c513a7084c62c9c1b4726880 (diff) | |
| download | emacs-661f3ce930c4ebef15faabc989e6d595bce79c84.tar.gz | |
Set category `l' (latin) for more
characters.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/characters.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 4ac067c2b3c..48a724c08d1 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -913,10 +913,13 @@ (let ((tbl (standard-case-table)) c) - ;; Latin Extended-A, Latin Extended-B + ;; Latin Extended-A, Latin Extended-B, IPA (setq c #x0100) - (while (<= c #x0233) + (while (<= c #x02AF) (modify-category-entry (decode-char 'ucs c) ?l) + + (setq c #x0100) + (while (<= c #x0177) (and (or (<= c #x012e) (and (>= c #x014a) (<= c #x0177))) (zerop (% c 2)) |