Mercurial > emacs
changeset 76320:7bc5977e9593
Set category `l' (latin) for more
characters.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 05 Mar 2007 01:45:04 +0000 |
parents | eece96633375 |
children | 89f34f4d6060 |
files | lisp/international/characters.el |
diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/characters.el Sun Mar 04 23:45:28 2007 +0000 +++ b/lisp/international/characters.el Mon Mar 05 01:45:04 2007 +0000 @@ -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))