# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1171452545 0
# Node ID b9243e7cca8dde97ed1f5faabaab97fb1ad781f1
# Parent  da8eab1082810447e5732c9e74438adf5a106f54
(latin1-display-char): Use make-glyph-code.

diff -r da8eab108281 -r b9243e7cca8d lisp/international/latin1-disp.el
--- a/lisp/international/latin1-disp.el	Wed Feb 14 11:28:40 2007 +0000
+++ b/lisp/international/latin1-disp.el	Wed Feb 14 11:29:05 2007 +0000
@@ -177,14 +177,10 @@
       (if (eq 'default latin1-display-face)
 	  (standard-display-ascii char (format latin1-display-format display))
 	(aset standard-display-table char
-	      (vconcat (mapcar (lambda (c)
-				 (logior c (lsh (face-id latin1-display-face)
-						19)))
+	      (vconcat (mapcar (lambda (c) (make-glyph-code c latin1-display-face))
 			       display))))
     (aset standard-display-table char
-	  (if (eq 'default latin1-display-face)
-	      display
-	    (logior display (lsh (face-id latin1-display-face) 19))))))
+	  (make-glyph-code display latin1-display-face))))
 
 (defun latin1-display-identities (charset)
   "Display each character in CHARSET as the corresponding Latin-1 character.