# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 975022096 0
# Node ID ee31f4f9b014ead9b0a536b33f882a673dd5e6d8
# Parent  0ef815e86f0e9c91a146abff1756bce06346a6cc
(list-iso-charset-chars): For two-byte charset, fix the `while' condition.
(list-non-iso-charset-chars): Fix the `while' condition.

diff -r 0ef815e86f0e -r ee31f4f9b014 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Thu Nov 23 23:27:45 2000 +0000
+++ b/lisp/international/mule-diag.el	Thu Nov 23 23:28:16 2000 +0000
@@ -415,7 +415,7 @@
     (if (= dim 1)
 	(list-block-of-chars charset 0 min max)
       (let ((i min))
-	(while (< i max)
+	(while (<= i max)
 	  (list-block-of-chars charset i min max)
 	  (setq i (1+ i)))))))
 
@@ -449,7 +449,7 @@
 	  (while row-range
 	    (setq row (car row-range) row-max (nth 1 row-range)
 		  row-range (nthcdr 2 row-range))
-	    (while (< row row-max)
+	    (while (<= row row-max)
 	      (setq col-range (cdr range))
 	      (while col-range
 		(setq col (car col-range) col-max (nth 1 col-range)