Mercurial > emacs
comparison src/lisp.h @ 2728:93c9529b2b69
* config.h.in: Remove mention of GLYPH datatype; that shouldn't be
a user option.
* lisp.h (GLYPH, MAKE_GLYPH, GLYPH_CHAR, GLYPH_FACE): New macros.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 10 May 1993 00:17:55 +0000 |
parents | 5b92bdfb7fbb |
children | cfe7659bbc05 |
comparison
equal
deleted
inserted
replaced
2727:b8911c8b9700 | 2728:93c9529b2b69 |
---|---|
577 #define CHAR_SUPER (0x080000) | 577 #define CHAR_SUPER (0x080000) |
578 #define CHAR_HYPER (0x100000) | 578 #define CHAR_HYPER (0x100000) |
579 #define CHAR_SHIFT (0x200000) | 579 #define CHAR_SHIFT (0x200000) |
580 #define CHAR_CTL (0x400000) | 580 #define CHAR_CTL (0x400000) |
581 #define CHAR_META (0x800000) | 581 #define CHAR_META (0x800000) |
582 | |
583 | |
584 /* The glyph datatype, used to represent characters on the display. */ | |
585 | |
586 /* The low eight bits are the character code, and the bits above them | |
587 are the numeric face ID. If FID is the face ID of a glyph on a | |
588 frame F, then F->display.x->faces[FID] contains the description of | |
589 that face. This is an int instead of a short, so we can support a | |
590 good bunch of face ID's; given that we have no mechanism for | |
591 tossing unused frame face ID's yet, we'll probably run out of 255 | |
592 pretty quickly. */ | |
593 #define GLYPH unsigned int | |
594 | |
595 /* Given a character code and a face ID, return the appropriate glyph. */ | |
596 #define MAKE_GLYPH(char, face) ((char) | ((face) << 8)) | |
597 | |
598 /* Return a glyph's character code. */ | |
599 #define GLYPH_CHAR(glyph) ((glyph) & 0xff) | |
600 | |
601 /* Return a glyph's face ID. */ | |
602 #define GLYPH_FACE(glyph) (((glyph) >> 8) & 0xff) | |
603 | |
582 | 604 |
583 /* Data type checking */ | 605 /* Data type checking */ |
584 | 606 |
585 #define NILP(x) (XFASTINT (x) == XFASTINT (Qnil)) | 607 #define NILP(x) (XFASTINT (x) == XFASTINT (Qnil)) |
586 #define GC_NILP(x) GC_EQ (x, Qnil) | 608 #define GC_NILP(x) GC_EQ (x, Qnil) |