From: Kenichi Handa Date: Thu, 23 Nov 2000 23:28:16 +0000 (+0000) Subject: (list-iso-charset-chars): For two-byte charset, fix the `while' condition. X-Git-Tag: emacs-pretest-21.0.92~107 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3ce4863e9360e3cf51973733604dd7cd5d5a1e3;p=emacs.git (list-iso-charset-chars): For two-byte charset, fix the `while' condition. (list-non-iso-charset-chars): Fix the `while' condition. --- diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 370dda98469..44115dfe3c8 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -415,7 +415,7 @@ detailed meanings of these arguments." (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 @@ detailed meanings of these arguments." (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)