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

diff -r 04450c7274c8 -r ba37b237dffb lisp/international/characters.el
--- a/lisp/international/characters.el	Mon Mar 05 06:58:14 2007 +0000
+++ b/lisp/international/characters.el	Mon Mar 05 07:00:16 2007 +0000
@@ -917,7 +917,7 @@
   (setq c #x0100)
   (while (<= c #x02AF)
     (modify-category-entry (decode-char 'ucs c) ?l)
-    (setq c (1+ 1)))
+    (setq c (1+ c)))
 
   (setq c #x0100)
   (while (<= c #x0177)