diff options
author | Kenichi Handa <handa@m17n.org> | 2007-05-28 11:59:10 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2007-05-28 11:59:10 +0000 |
commit | 29f035645ed9a7d856ac57f286e28b4dc7c08455 (patch) | |
tree | 8e3c269ee2784bc6c2e333ea9aaa78d68818babb /lisp/disp-table.el | |
parent | bd49b21e87f875a33a7aa32455b660d1406bb8fe (diff) | |
download | emacs-29f035645ed9a7d856ac57f286e28b4dc7c08455.tar.gz |
(glyph-char): Fix for a new character code space (22-bit).
(glyph-face): Likewise.
Diffstat (limited to 'lisp/disp-table.el')
-rw-r--r-- | lisp/disp-table.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el index 38f3ed6708a..d356be12d5b 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -198,12 +198,12 @@ X frame." ;;;###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) |