# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1022882001 0
# Node ID c68f88e4267873a0f692a4ad75ba6846c242240b
# Parent  c712966df91c884e207ed01a8d17897af756917a
(describe-character-set): Account for
more than two dimensions of possibly different size.

diff -r c712966df91c -r c68f88e42678 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Fri May 31 21:53:07 2002 +0000
+++ b/lisp/international/mule-diag.el	Fri May 31 21:53:21 2002 +0000
@@ -324,11 +324,12 @@
 	(if (not (eq name charset))
 	    (insert " (alias of " (symbol-name name) ?\))))
       (insert "\n\n" (charset-description charset) "\n\n")
-      (insert "Number of contained characters: "
-	      (if (= (charset-dimension charset) 1)
-		  (format "%d\n" (charset-chars charset))
-		(format "%dx%d\n" (charset-chars charset)
-			(charset-chars charset))))
+      (insert "Number of contained characters: ")
+      (dotimes (i (charset-dimension charset))
+	(unless (= i 0)
+	  (insert ?x))
+	(insert (format "%d" (charset-chars charset) (1+ i))))
+      (insert ?\n)
       (let ((char (charset-iso-final-char charset)))
 	(when (> char 0)
 	  (insert "Final char of ISO2022 designation sequence: ")