Mercurial > emacs

changeset 90855:8c3bbc3bb044

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-glyph-code): Fix for a new character code space (22-bit).
author Kenichi Handa <handa@m17n.org>
date Mon, 28 May 2007 01:36:18 +0000
parents 03ec96a627ba
children b0691a92680d
files lisp/disp-table.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/disp-table.el	Sat May 26 21:55:39 2007 +0000
+++ b/lisp/disp-table.el	Mon May 28 01:36:18 2007 +0000
@@ -190,9 +190,9 @@
 (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