324 |
(if (not (eq name charset)) |
(if (not (eq name charset)) |
325 |
(insert " (alias of " (symbol-name name) ?\)))) |
(insert " (alias of " (symbol-name name) ?\)))) |
326 |
(insert "\n\n" (charset-description charset) "\n\n") |
(insert "\n\n" (charset-description charset) "\n\n") |
327 |
(insert "Number of contained characters: " |
(insert "Number of contained characters: ") |
328 |
(if (= (charset-dimension charset) 1) |
(dotimes (i (charset-dimension charset)) |
329 |
(format "%d\n" (charset-chars charset)) |
(unless (= i 0) |
330 |
(format "%dx%d\n" (charset-chars charset) |
(insert ?x)) |
331 |
(charset-chars charset)))) |
(insert (format "%d" (charset-chars charset) (1+ i)))) |
332 |
|
(insert ?\n) |
333 |
(let ((char (charset-iso-final-char charset))) |
(let ((char (charset-iso-final-char charset))) |
334 |
(when (> char 0) |
(when (> char 0) |
335 |
(insert "Final char of ISO2022 designation sequence: ") |
(insert "Final char of ISO2022 designation sequence: ") |