# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1180353550 0
# Node ID 848729201b1c1f13ef2ceb348e9c97cfdb9576b2
# Parent  ef753be93cdb8fa800565f8346bd0f6a74777393
(glyph-char): Fix for a new character code space (22-bit).
(glyph-face): Likewise.

diff -r ef753be93cdb -r 848729201b1c lisp/disp-table.el
--- a/lisp/disp-table.el	Mon May 28 11:57:42 2007 +0000
+++ b/lisp/disp-table.el	Mon May 28 11:59:10 2007 +0000
@@ -198,12 +198,12 @@
 ;;;###autoload
 (defun glyph-char (glyph)
   "Return the character of glyph code GLYPH."
-  (logand glyph #x7ffff))
+  (logand glyph #x3fffff))
 
 ;;;###autoload
 (defun glyph-face (glyph)
   "Return the face of glyph code GLYPH, or nil if glyph has default face."
-  (let ((face-id (lsh glyph -19)))
+  (let ((face-id (lsh glyph -22)))
     (and (> face-id 0)
 	 (car (delq nil (mapcar (lambda (face)
 				  (and (eq (get face 'face) face-id)