462 |
(char-to-string char)) |
(char-to-string char)) |
463 |
char char char)))) |
char char char)))) |
464 |
|
|
465 |
(if (or (< (char-after) 256) |
(if (or (< char 256) |
466 |
(memq 'mule-utf-8 (find-coding-systems-region pos (1+ pos))) |
(memq 'mule-utf-8 (find-coding-systems-region pos (1+ pos))) |
467 |
(get-char-property pos 'untranslated-utf-8)) |
(get-char-property pos 'untranslated-utf-8)) |
468 |
(setq unicode (or (get-char-property pos 'untranslated-utf-8) |
(setq unicode (or (get-char-property pos 'untranslated-utf-8) |
474 |
(char-to-string char)) |
(char-to-string char)) |
475 |
char char char |
char char char |
476 |
(if unicode |
(if unicode |
477 |
(format ", U+%04X" (encode-char char 'ucs)) |
(format ", U+%04X" unicode) |
478 |
""))) |
""))) |
479 |
("charset" |
("charset" |
480 |
,(symbol-name charset) |
,(symbol-name charset) |