From: Kenichi Handa <handa@m17n.org>
Date: Mon, 5 Mar 2007 01:45:04 +0000 (+0000)
Subject: Set category `l' (latin) for more
X-Git-Tag: emacs-pretest-22.0.96~263
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=661f3ce930c4ebef15faabc989e6d595bce79c84;p=emacs.git

Set category `l' (latin) for more
characters.
---

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))