458 |
(multibyte-p enable-multibyte-characters) |
(multibyte-p enable-multibyte-characters) |
459 |
(overlays (mapcar #'(lambda (o) (overlay-properties o)) |
(overlays (mapcar #'(lambda (o) (overlay-properties o)) |
460 |
(overlays-at pos))) |
(overlays-at pos))) |
461 |
|
(char-description (if (not multibyte-p) |
462 |
|
(single-key-description char) |
463 |
|
(if (< char 128) |
464 |
|
(single-key-description char) |
465 |
|
(string-to-multibyte |
466 |
|
(char-to-string char))))) |
467 |
item-list max-width unicode) |
item-list max-width unicode) |
468 |
|
|
469 |
(if (or (< char 256) |
(if (or (< char 256) |
474 |
(setq item-list |
(setq item-list |
475 |
`(("character" |
`(("character" |
476 |
,(format "%s (%d, #o%o, #x%x%s)" |
,(format "%s (%d, #o%o, #x%x%s)" |
477 |
(apply 'propertize (if (not multibyte-p) |
(apply 'propertize char-description |
|
(single-key-description char) |
|
|
(if (< char 128) |
|
|
(single-key-description char) |
|
|
(string-to-multibyte |
|
|
(char-to-string char)))) |
|
478 |
(text-properties-at pos)) |
(text-properties-at pos)) |
479 |
char char char |
char char char |
480 |
(if unicode |
(if unicode |
640 |
(goto-char (point-min)) |
(goto-char (point-min)) |
641 |
(re-search-forward "character:[ \t\n]+") |
(re-search-forward "character:[ \t\n]+") |
642 |
(setq pos (point))) |
(setq pos (point))) |
643 |
(if overlays |
(let ((end (+ pos (length char-description)))) |
644 |
(mapc #'(lambda (props) |
(if overlays |
645 |
(let ((o (make-overlay pos (1+ pos)))) |
(mapc #'(lambda (props) |
646 |
(while props |
(let ((o (make-overlay pos end))) |
647 |
(overlay-put o (car props) (nth 1 props)) |
(while props |
648 |
(setq props (cddr props))))) |
(overlay-put o (car props) (nth 1 props)) |
649 |
overlays)) |
(setq props (cddr props))))) |
650 |
|
overlays))) |
651 |
|
|
652 |
(when disp-vector |
(when disp-vector |
653 |
(insert |
(insert |