(list-character-sets): Change

"FINAL-CHAR" to "FINAL-BYTE" for follow the official terminology.
(list-character-sets-1): Add one line explanation about
"supplementary charset".  Make the part "Supplementary Character
Sets" clickable.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 43df933ed38c96df175079b7c001839290088d0e..d297fa06d846ac3496b0eb50632bbfdce1f4b206 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -60,8 +60,9 @@
 
 The D column contains the dimension of this character set.  The CH
 column contains the number of characters in a block of this character
-set.  The FINAL-CHAR column contains an ISO-2022 <final-char> to use
-for designating this character set in ISO-2022-based coding systems.
+set.  The FINAL-BYTE column contains an ISO-2022 <final-byte> to use
+in the designation escape sequence for this character set in
+ISO-2022-based coding systems.
 
 With prefix ARG, the output format gets more cryptic,
 but still shows the full information."
@@ -85,7 +86,7 @@ but still shows the full information."
        (indent-to 48)
        (insert "| +--CHARS\n")
        (let ((columns '(("CHARSET-NAME" . name) "\t\t\t\t\t"
-                        ("D CH  FINAL-CHAR" . iso-spec)))
+                        ("D CH  FINAL-BYTE" . iso-spec)))
              pos)
          (while columns
            (if (stringp (car columns))
@@ -151,7 +152,14 @@ SORT-KEY should be `name' or `iso-spec' (default `name')."
     ;; Insert information of character sets.
     (dolist (elt (append charset-info-list (list t) supplementary-list))
       (if (eq elt t)
-         (insert "-------------- Supplementary Character Sets --------------")
+         (progn
+           (insert "\n-------------- ")
+           (insert-text-button "Supplementary Character Sets"
+                               'type 'help-info
+                               'help-args '("(emacs)Charsets"))
+           (insert " --------------
+Character sets for defining another charset or obsolete now
+"))
        (insert-text-button (symbol-name (car elt)) ; NAME
                            :type 'list-charset-chars
                            'help-args (list (car elt)))