# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1173077894 0
# Node ID 04450c7274c876bb008447791a5ec18e6cc2eb38
# Parent  9e77507716d4067b23859287fb2d5399269ac959
Fix previous change.

diff -r 9e77507716d4 -r 04450c7274c8 lisp/international/characters.el
--- a/lisp/international/characters.el	Mon Mar 05 06:41:59 2007 +0000
+++ b/lisp/international/characters.el	Mon Mar 05 06:58:14 2007 +0000
@@ -916,7 +916,8 @@
   ;; Latin Extended-A, Latin Extended-B, IPA
   (setq c #x0100)
   (while (<= c #x02AF)
-    (modify-category-entry (decode-char 'ucs c) ?l))
+    (modify-category-entry (decode-char 'ucs c) ?l)
+    (setq c (1+ 1)))
 
   (setq c #x0100)
   (while (<= c #x0177)