From f3df78db7218a084cbd58dc9a3cb5b9909b02d4d Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 30 Jan 2007 07:44:44 +0000 Subject: [PATCH] (list-character-sets-2): Don't print width. --- lisp/international/mule-diag.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 286a6410fdf..bffdc5b9a2a 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -184,21 +184,19 @@ SORT-KEY should be `name' or `iso-spec' (default `name')." ## 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) -- 2.39.5