diff options
author | Kenichi Handa <handa@m17n.org> | 2009-06-17 01:16:53 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2009-06-17 01:16:53 +0000 |
commit | 73ad240a72753ae77be655e29fdcedefee247348 (patch) | |
tree | 53c1e16e312e29b9e56bcc462f63c7e1919eb7a2 | |
parent | 951795541df06a670648cf7d0f2f86920e05fb48 (diff) | |
download | emacs-73ad240a72753ae77be655e29fdcedefee247348.tar.gz |
(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.
-rw-r--r-- | lisp/international/mule-diag.el | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 43df933ed38..d297fa06d84 100644 --- 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))) |