From 6e3b8c5dd5e80a395f8fff690bc72515fb925c29 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 13 Oct 2005 05:39:31 +0000 Subject: [PATCH] (utf-8-compose): Display an invalid UTF-8 byte with `escape-glyph' face. --- lisp/international/utf-8.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el index 56043630817..384d973db9f 100644 --- a/lisp/international/utf-8.el +++ b/lisp/international/utf-8.el @@ -934,7 +934,8 @@ Move point to the end of the sequence." '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)))) -- 2.39.2