(describe-character-set): Pay attention to charsets that don't have

ISO2022's final char.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33352694085da72c4eef79374737878292cc89a2..512e8c05a1a378c8bda26d145a8470738a67bb62 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,9 @@
 2001-01-31  Kenichi Handa  <handa@etl.go.jp>
 
-       * international/mule-diag.el (describe-character-set): Pay
-       attention to charsets that don't have ISO2022's final char.
+       * international/mule.el (charset-info): Fix docstring.
+
+       * international/mule-diag.el (describe-character-set): Check final
+       char valid before printing it.
 
 2001-01-30  Gerd Moellmann  <gerd@gnu.org>
 

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 43e1270856098a9cfc5e15f78aa252e1b164d444..bbc818591a2b117f225a5e8738e5bb24c99806e7 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -492,7 +492,7 @@ detailed meanings of these arguments."
                    (format "%d\n" (aref info 3))
                  (format "%dx%d\n" (aref info 3) (aref info 3))))
        (insert "the final char of ISO2022's designation sequence: ")
-       (if (aref info 8)
+       (if (>= (aref info 8) 0)
            (insert (format "`%c'\n" (aref info 8)))
          (insert "not assigned\n"))
        (insert (format "width (how many columns on screen): %d\n"