changeset 33837:ee31f4f9b014

(list-iso-charset-chars): For two-byte charset, fix the `while' condition. (list-non-iso-charset-chars): Fix the `while' condition.
author Kenichi Handa <handa@m17n.org>
date Thu, 23 Nov 2000 23:28:16 +0000
parents 0ef815e86f0e
children 415baa3f1914
files lisp/international/mule-diag.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)