(utf-8-compose): Display an invalid UTF-8 byte with `escape-glyph'

face.

1 files changed, 2 insertions, 1 deletions

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))))