From 3918e9c9d1a06cb2e0414de81bf45a4594801b1b Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 31 May 2002 21:53:21 +0000 Subject: [PATCH] (describe-character-set): Account for more than two dimensions of possibly different size. --- lisp/international/mule-diag.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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: ") -- 2.39.5