63 |
(defun list-character-sets (arg) |
(defun list-character-sets (arg) |
64 |
"Display a list of all character sets. |
"Display a list of all character sets. |
65 |
|
|
|
The ID-NUM column contains a charset identification number for |
|
|
internal Emacs use. |
|
|
|
|
|
The MULTIBYTE-FORM column contains the format of the buffer and string |
|
|
multibyte sequence of characters in the charset using one to four |
|
|
hexadecimal digits. |
|
|
`xx' stands for any byte in the range 0..127. |
|
|
`XX' stands for any byte in the range 160..255. |
|
|
|
|
66 |
The D column contains the dimension of this character set. The CH |
The D column contains the dimension of this character set. The CH |
67 |
column contains the number of characters in a block of this character |
column contains the number of characters in a block of this character |
68 |
set. The FINAL-CHAR column contains an ISO-2022 <final-char> to use |
set. The FINAL-CHAR column contains an ISO-2022 <final-char> to use |
254 |
(setq ch (cond ((< i min) |
(setq ch (cond ((< i min) |
255 |
32) |
32) |
256 |
((charsetp charset) |
((charsetp charset) |
257 |
(if (= row 0) |
(condition-case nil |
258 |
(make-char charset i) |
(if (= row 0) |
259 |
(make-char charset row i))) |
(make-char charset i) |
260 |
|
(make-char charset row i)) |
261 |
|
(error 32))) ; gap in mapping |
262 |
((and (symbolp charset) (get charset 'translation-table)) |
((and (symbolp charset) (get charset 'translation-table)) |
263 |
(aref (get charset 'translation-table) i)) |
(aref (get charset 'translation-table) i)) |
264 |
(t (funcall charset (+ (* row 256) i))))) |
(t (funcall charset (+ (* row 256) i))))) |