Mercurial > emacs
changeset 90860:848729201b1c
(glyph-char): Fix for a new character code space (22-bit).
(glyph-face): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 28 May 2007 11:59:10 +0000 |
| parents | ef753be93cdb |
| children | 4f7df84e666c |
| files | lisp/disp-table.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)