Mercurial > emacs
changeset 66062:b23c01e98a4b
(utf-8-compose): Display an invalid UTF-8 byte with `escape-glyph'
face.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 13 Oct 2005 05:39:31 +0000 |
| parents | 7fb814227358 |
| children | 3d5e888c639a |
| files | lisp/international/utf-8.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/utf-8.el Thu Oct 13 05:28:12 2005 +0000 +++ b/lisp/international/utf-8.el Thu Oct 13 05:39:31 2005 +0000 @@ -934,7 +934,8 @@ 'help-echo 'utf-8-help-echo) (if (= l 2) (put-text-property (point) (min (point-max) (+ l (point))) - 'display (format "\\%03o" ch)) + 'display (propertize (format "\\%03o" ch) + 'face 'escape-glyph)) (compose-region (point) (+ l (point)) ?$,3u=(B)) (forward-char l)) (forward-char 1))))