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

ISO2022's final char.

2 files changed, 5 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33352694085..512e8c05a1a 100644
--- 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 43e12708560..bbc818591a2 100644
--- 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"