Fix previous change.

f9319888 · Kenichi Handa · bba31a09 · f9319888
Commit f9319888 authored Mar 05, 2007 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/international/characters.el lisp/international/characters.el +2 -1

No files found.
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -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+ c)))

  (setq c #x0100)
  (while (<= c #x0177)