diff options
| author | Kenichi Handa | 2007-05-28 01:36:18 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2007-05-28 01:36:18 +0000 |
| commit | 7cc8cfc07ecdec1e270b658629fd7f839994fa29 (patch) | |
| tree | f765ff8c362efdef1a96346097c2953823d32a6f | |
| parent | 3a4336e6def99c0e15e2f9ae36e6f31b3d6dad69 (diff) | |
| download | emacs-7cc8cfc07ecdec1e270b658629fd7f839994fa29.tar.gz emacs-7cc8cfc07ecdec1e270b658629fd7f839994fa29.zip | |
(make-glyph-code): Fix for a new character code
space (22-bit).
| -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 15231b084ed..b6b2ea12bec 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el | |||
| @@ -190,9 +190,9 @@ X frame." | |||
| 190 | (defun make-glyph-code (char &optional face) | 190 | (defun make-glyph-code (char &optional face) |
| 191 | "Return a glyph code representing char CHAR with face FACE." | 191 | "Return a glyph code representing char CHAR with face FACE." |
| 192 | ;; Due to limitations on Emacs integer values, faces with | 192 | ;; Due to limitations on Emacs integer values, faces with |
| 193 | ;; face id greater that 4091 are silently ignored. | 193 | ;; face id greater that 512 are silently ignored. |
| 194 | (if (and face (<= (face-id face) #xfff)) | 194 | (if (and face (<= (face-id face) #xfff)) |
| 195 | (logior char (lsh (face-id face) 19)) | 195 | (logior char (lsh (face-id face) 22)) |
| 196 | char)) | 196 | char)) |
| 197 | 197 | ||
| 198 | ;;;###autoload | 198 | ;;;###autoload |