From: Kenichi Handa <handa@m17n.org>
Date: Thu, 13 Oct 2005 05:39:31 +0000 (+0000)
Subject: (utf-8-compose): Display an invalid UTF-8 byte with `escape-glyph'
X-Git-Tag: emacs-pretest-22.0.90~6630
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e3b8c5dd5e80a395f8fff690bc72515fb925c29;p=emacs.git

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

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