Mercurial > emacs
comparison lisp/disp-table.el @ 90859:ef753be93cdb
(make-glyph-code): Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 28 May 2007 11:57:42 +0000 |
| parents | 8c3bbc3bb044 |
| children | 848729201b1c |
comparison
equal
deleted
inserted
replaced
| 90858:72f531d048d8 | 90859:ef753be93cdb |
|---|---|
| 189 ;;;###autoload | 189 ;;;###autoload |
| 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 512 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) #x1ff)) |
| 195 (logior char (lsh (face-id face) 22)) | 195 (logior char (lsh (face-id face) 22)) |
| 196 char)) | 196 char)) |
| 197 | 197 |
| 198 ;;;###autoload | 198 ;;;###autoload |
| 199 (defun glyph-char (glyph) | 199 (defun glyph-char (glyph) |