From: Dave Love <fx@gnu.org>
Date: Fri, 31 May 2002 21:53:21 +0000 (+0000)
Subject: (describe-character-set): Account for
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~701
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3918e9c9d1a06cb2e0414de81bf45a4594801b1b;p=emacs.git

(describe-character-set): Account for
more than two dimensions of possibly different size.
---

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 45b09eb381f..24782788256 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -324,11 +324,12 @@ detailed meanings of these arguments."
 	(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: ")