467 |
(encode-char char 'ucs)))) |
(encode-char char 'ucs)))) |
468 |
(setq item-list |
(setq item-list |
469 |
`(("character" |
`(("character" |
470 |
,(format "%s (0%o, %d, 0x%x%s)" |
,(format "%s (%d, #o%o, #x%x%s)" |
471 |
(apply 'propertize (if (not multibyte-p) |
(apply 'propertize (if (not multibyte-p) |
472 |
(single-key-description char) |
(single-key-description char) |
473 |
(if (< char 128) |
(if (< char 128) |
510 |
,@(let ((category-set (char-category-set char))) |
,@(let ((category-set (char-category-set char))) |
511 |
(if (not category-set) |
(if (not category-set) |
512 |
'("-- none --") |
'("-- none --") |
513 |
(mapcar #'(lambda (x) (format "%c:%s " |
(mapcar #'(lambda (x) (format "%c:%s" |
514 |
x (category-docstring x))) |
x (category-docstring x))) |
515 |
(category-set-mnemonics category-set))))) |
(category-set-mnemonics category-set))))) |
516 |
,@(let ((props (aref char-code-property-table char)) |
,@(let ((props (aref char-code-property-table char)) |
583 |
(if display |
(if display |
584 |
(concat |
(concat |
585 |
"by this font (glyph code)\n" |
"by this font (glyph code)\n" |
586 |
(format " %s (0x%02X)" |
(format " %s (#x%02X)" |
587 |
(car display) (cdr display))) |
(car display) (cdr display))) |
588 |
"no font available") |
"no font available") |
589 |
(if display |
(if display |
657 |
(insert (logand (car (aref disp-vector i)) #x7ffff) ?: |
(insert (logand (car (aref disp-vector i)) #x7ffff) ?: |
658 |
(propertize " " 'display '(space :align-to 5)) |
(propertize " " 'display '(space :align-to 5)) |
659 |
(if (cdr (aref disp-vector i)) |
(if (cdr (aref disp-vector i)) |
660 |
(format "%s (0x%02X)" (cadr (aref disp-vector i)) |
(format "%s (#x%02X)" (cadr (aref disp-vector i)) |
661 |
(cddr (aref disp-vector i))) |
(cddr (aref disp-vector i))) |
662 |
"-- no font --") |
"-- no font --") |
663 |
"\n") |
"\n") |
708 |
(insert "\n " (car elt) ?: |
(insert "\n " (car elt) ?: |
709 |
(propertize " " 'display '(space :align-to 5)) |
(propertize " " 'display '(space :align-to 5)) |
710 |
(if (cdr elt) |
(if (cdr elt) |
711 |
(format "%s (0x%02X)" (cadr elt) (cddr elt)) |
(format "%s (#x%02X)" (cadr elt) (cddr elt)) |
712 |
"-- no font --")))) |
"-- no font --")))) |
713 |
(insert "these terminal codes:") |
(insert "these terminal codes:") |
714 |
(dolist (elt component-chars) |
(dolist (elt component-chars) |