/[emacs]/emacs/lisp/international/mule-diag.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-diag.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.68.2.9 by fx, Sun May 26 22:45:31 2002 UTC revision 1.68.2.10 by fx, Fri May 31 21:53:21 2002 UTC
# Line 324  detailed meanings of these arguments." Line 324  detailed meanings of these arguments."
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: ")

Legend:
Removed from v.1.68.2.9  
changed lines
  Added in v.1.68.2.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26