diff options
| author | Kenichi Handa | 2007-05-28 11:57:42 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2007-05-28 11:57:42 +0000 |
| commit | bd49b21e87f875a33a7aa32455b660d1406bb8fe (patch) | |
| tree | d283981416754b231e406aea5d3d55678f397f24 | |
| parent | 7a5988c6ee6690e87273a4fb08764aa78bbf0e23 (diff) | |
| download | emacs-bd49b21e87f875a33a7aa32455b660d1406bb8fe.tar.gz emacs-bd49b21e87f875a33a7aa32455b660d1406bb8fe.zip | |
(make-glyph-code): Fix previous change.
| -rw-r--r-- | lisp/disp-table.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/disp-table.el b/lisp/disp-table.el index b6b2ea12bec..38f3ed6708a 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el | |||
| @@ -191,7 +191,7 @@ X frame." | |||
| 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 | ||