From: Kenichi Handa <handa@m17n.org>
Date: Mon, 28 May 2007 01:36:18 +0000 (+0000)
Subject: (make-glyph-code): Fix for a new character code
X-Git-Tag: emacs-pretest-23.0.90~8295^2~499
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7cc8cfc07ecdec1e270b658629fd7f839994fa29;p=emacs.git

(make-glyph-code): Fix for a new character code
space (22-bit).
---

diff --git a/lisp/disp-table.el b/lisp/disp-table.el
index 15231b084ed..b6b2ea12bec 100644
--- a/lisp/disp-table.el
+++ b/lisp/disp-table.el
@@ -190,9 +190,9 @@ X frame."
 (defun make-glyph-code (char &optional face)
   "Return a glyph code representing char CHAR with face FACE."
   ;; Due to limitations on Emacs integer values, faces with
-  ;; face id greater that 4091 are silently ignored.
+  ;; face id greater that 512 are silently ignored.
   (if (and face (<= (face-id face) #xfff))
-      (logior char (lsh (face-id face) 19))
+      (logior char (lsh (face-id face) 22))
     char))
 
 ;;;###autoload