changeset 75874:b9243e7cca8d

(latin1-display-char): Use make-glyph-code.
author Kim F. Storm <storm@cua.dk>
date Wed, 14 Feb 2007 11:29:05 +0000
parents da8eab108281
children bdb0a4edf3b9
files lisp/international/latin1-disp.el
diffstat 1 files changed, 2 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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.