Mercurial > emacs

changeset 88701:c68f88e42678

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-character-set): Account for more than two dimensions of possibly different size.
author Dave Love <fx@gnu.org>
date Fri, 31 May 2002 21:53:21 +0000
parents c712966df91c
children 8f3207996c62
files lisp/international/mule-diag.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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: ")