Mercurial > emacs
comparison lisp/international/mule-diag.el @ 34931:debb78d4e934
(print-fontset): Indent font name by 24 columns, not 25.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 30 Dec 2000 01:08:10 +0000 |
| parents | 14e6e9496603 |
| children | a185af43bdf4 |
comparison
equal
deleted
inserted
replaced
| 34930:1afc719eccd4 | 34931:debb78d4e934 |
|---|---|
| 1082 (let ((tail (aref (fontset-info fontset) 2)) | 1082 (let ((tail (aref (fontset-info fontset) 2)) |
| 1083 elt chars font-spec opened prev-charset charset from to) | 1083 elt chars font-spec opened prev-charset charset from to) |
| 1084 (beginning-of-line) | 1084 (beginning-of-line) |
| 1085 (insert "Fontset: " fontset "\n") | 1085 (insert "Fontset: " fontset "\n") |
| 1086 (insert "CHARSET or CHAR RANGE") | 1086 (insert "CHARSET or CHAR RANGE") |
| 1087 (indent-to 25) | 1087 (indent-to 24) |
| 1088 (insert "FONT NAME\n") | 1088 (insert "FONT NAME\n") |
| 1089 (insert "---------------------") | 1089 (insert "---------------------") |
| 1090 (indent-to 25) | 1090 (indent-to 24) |
| 1091 (insert "---------") | 1091 (insert "---------") |
| 1092 (insert "\n") | 1092 (insert "\n") |
| 1093 (while tail | 1093 (while tail |
| 1094 (setq elt (car tail) tail (cdr tail)) | 1094 (setq elt (car tail) tail (cdr tail)) |
| 1095 (setq chars (car elt) font-spec (car (cdr elt)) opened (cdr (cdr elt))) | 1095 (setq chars (car elt) font-spec (car (cdr elt)) opened (cdr (cdr elt))) |
| 1118 (= (nth 2 split) 0)) | 1118 (= (nth 2 split) 0)) |
| 1119 (setq to | 1119 (setq to |
| 1120 (make-char charset (nth 1 split) | 1120 (make-char charset (nth 1 split) |
| 1121 (if (= (charset-chars charset) 94) 126 127)))) | 1121 (if (= (charset-chars charset) 94) 126 127)))) |
| 1122 (insert to)))) | 1122 (insert to)))) |
| 1123 (indent-to 25) | 1123 (indent-to 24) |
| 1124 (if (stringp font-spec) | 1124 (if (stringp font-spec) |
| 1125 (insert font-spec) | 1125 (insert font-spec) |
| 1126 (if (car font-spec) | 1126 (if (car font-spec) |
| 1127 (if (string-match "-" (car font-spec)) | 1127 (if (string-match "-" (car font-spec)) |
| 1128 (insert "-" (car font-spec) "-*-") | 1128 (insert "-" (car font-spec) "-*-") |