# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1173059104 0
# Node ID 7bc5977e9593e7ea2830b98792c76e8b04de3611
# Parent  eece96633375557d6955e85b89159c31f56a09ed
Set category `l' (latin) for more
characters.

diff -r eece96633375 -r 7bc5977e9593 lisp/international/characters.el
--- 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))