From 7cc8cfc07ecdec1e270b658629fd7f839994fa29 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 28 May 2007 01:36:18 +0000 Subject: [PATCH] (make-glyph-code): Fix for a new character code space (22-bit). --- lisp/disp-table.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.5