Mercurial > emacs
changeset 90742:d12279146267
(list-character-sets-2): Don't print
width.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 30 Jan 2007 07:44:44 +0000 |
| parents | d46ef6f75d9c |
| children | f83d17e1ace6 |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 3 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-diag.el Tue Jan 30 07:44:33 2007 +0000 +++ b/lisp/international/mule-diag.el Tue Jan 30 07:44:44 2007 +0000 @@ -184,21 +184,19 @@ ## CHARSET-SYMBOL-NAME, ## DIMENSION (1 or 2) ## CHARS (94 or 96) -## WIDTH (occupied column numbers: 1 or 2), -## DIRECTION (0:left-to-right, 1:right-to-left), ## ISO-FINAL-CHAR (character code of ISO-2022's final character) -## ISO-GRAPHIC-PLANE (ISO-2022's graphic plane, 0:GL, 1:GR) +## -1 means that no final character is assigned. ## DESCRIPTION (describing string of the charset) ") (let ((l charset-list) charset) (while l (setq charset (car l) l (cdr l)) - (princ (format "%s:%d:%d:%d:%d:%s\n" + (princ (format "%s:%d:%d:%d:%s\n" charset (charset-dimension charset) (charset-chars charset) - (aref char-width-table (make-char charset)) +;;; (char-width (make-char charset)) ;;; (charset-direction charset) (charset-iso-final-char charset) ;;; (charset-iso-graphic-plane charset)