[Emacs-diffs] Changes to emacs/lisp/international/latin1-disp.el,v

[Kim F. Storm]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kim F. Storm <kfstorm>  07/02/14 11:29:05

Index: latin1-disp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/latin1-disp.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- latin1-disp.el      21 Jan 2007 02:56:40 -0000      1.23
+++ latin1-disp.el      14 Feb 2007 11:29:05 -0000      1.24
@@ -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.