diff options
| author | Dave Love | 2002-05-31 21:53:21 +0000 |
|---|---|---|
| committer | Dave Love | 2002-05-31 21:53:21 +0000 |
| commit | 3918e9c9d1a06cb2e0414de81bf45a4594801b1b (patch) | |
| tree | d9db8754b5bd37f1eaa29d0470ca3d1e1963bc38 | |
| parent | 346a8d649eba75b35d3d1a39ef670cafdeb8e729 (diff) | |
| download | emacs-3918e9c9d1a06cb2e0414de81bf45a4594801b1b.tar.gz emacs-3918e9c9d1a06cb2e0414de81bf45a4594801b1b.zip | |
(describe-character-set): Account for
more than two dimensions of possibly different size.
| -rw-r--r-- | lisp/international/mule-diag.el | 11 |
1 files 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." | |||
| 324 | (if (not (eq name charset)) | 324 | (if (not (eq name charset)) |
| 325 | (insert " (alias of " (symbol-name name) ?\)))) | 325 | (insert " (alias of " (symbol-name name) ?\)))) |
| 326 | (insert "\n\n" (charset-description charset) "\n\n") | 326 | (insert "\n\n" (charset-description charset) "\n\n") |
| 327 | (insert "Number of contained characters: " | 327 | (insert "Number of contained characters: ") |
| 328 | (if (= (charset-dimension charset) 1) | 328 | (dotimes (i (charset-dimension charset)) |
| 329 | (format "%d\n" (charset-chars charset)) | 329 | (unless (= i 0) |
| 330 | (format "%dx%d\n" (charset-chars charset) | 330 | (insert ?x)) |
| 331 | (charset-chars charset)))) | 331 | (insert (format "%d" (charset-chars charset) (1+ i)))) |
| 332 | (insert ?\n) | ||
| 332 | (let ((char (charset-iso-final-char charset))) | 333 | (let ((char (charset-iso-final-char charset))) |
| 333 | (when (> char 0) | 334 | (when (> char 0) |
| 334 | (insert "Final char of ISO2022 designation sequence: ") | 335 | (insert "Final char of ISO2022 designation sequence: ") |