Mercurial > emacs
comparison src/lisp.h @ 9572:b36d5e88cccc
*** empty log message ***
| author | Morten Welinder <terra@diku.dk> |
|---|---|
| date | Mon, 17 Oct 1994 08:42:36 +0000 |
| parents | 405276fc3a9c |
| children | c9c11e41bf07 |
comparison
equal
deleted
inserted
replaced
| 9571:b37425ecb3f0 | 9572:b36d5e88cccc |
|---|---|
| 695 good bunch of face ID's; given that we have no mechanism for | 695 good bunch of face ID's; given that we have no mechanism for |
| 696 tossing unused frame face ID's yet, we'll probably run out of 255 | 696 tossing unused frame face ID's yet, we'll probably run out of 255 |
| 697 pretty quickly. */ | 697 pretty quickly. */ |
| 698 #define GLYPH unsigned int | 698 #define GLYPH unsigned int |
| 699 | 699 |
| 700 #ifdef HAVE_X_WINDOWS | 700 #ifdef HAVE_FACES |
| 701 /* The FAST macros assume that we already know we're in an X window. */ | 701 /* The FAST macros assume that we already know we're in an X window. */ |
| 702 | 702 |
| 703 /* Given a character code and a face ID, return the appropriate glyph. */ | 703 /* Given a character code and a face ID, return the appropriate glyph. */ |
| 704 #define FAST_MAKE_GLYPH(char, face) ((char) | ((face) << 8)) | 704 #define FAST_MAKE_GLYPH(char, face) ((char) | ((face) << 8)) |
| 705 | 705 |
| 712 /* Slower versions that test the frame type first. */ | 712 /* Slower versions that test the frame type first. */ |
| 713 #define MAKE_GLYPH(f, char, face) (FRAME_TERMCAP_P (f) ? (char) \ | 713 #define MAKE_GLYPH(f, char, face) (FRAME_TERMCAP_P (f) ? (char) \ |
| 714 : FAST_MAKE_GLYPH (char, face)) | 714 : FAST_MAKE_GLYPH (char, face)) |
| 715 #define GLYPH_CHAR(f, g) (FRAME_TERMCAP_P (f) ? (g) : FAST_GLYPH_CHAR (g)) | 715 #define GLYPH_CHAR(f, g) (FRAME_TERMCAP_P (f) ? (g) : FAST_GLYPH_CHAR (g)) |
| 716 #define GLYPH_FACE(f, g) (FRAME_TERMCAP_P (f) ? (0) : FAST_GLYPH_FACE (g)) | 716 #define GLYPH_FACE(f, g) (FRAME_TERMCAP_P (f) ? (0) : FAST_GLYPH_FACE (g)) |
| 717 #else | 717 #else /* not HAVE_FACES */ |
| 718 #define MAKE_GLYPH(f, char, face) (char) | 718 #define MAKE_GLYPH(f, char, face) (char) |
| 719 #define GLYPH_CHAR(f, g) (g) | 719 #define GLYPH_CHAR(f, g) (g) |
| 720 #define GLYPH_FACE(f, g) (g) | 720 #define GLYPH_FACE(f, g) (g) |
| 721 #endif | 721 #endif /* not HAVE_FACES */ |
| 722 | 722 |
| 723 /* The ID of the mode line highlighting face. */ | 723 /* The ID of the mode line highlighting face. */ |
| 724 #define GLYPH_MODE_LINE_FACE 1 | 724 #define GLYPH_MODE_LINE_FACE 1 |
| 725 | 725 |
| 726 /* Data type checking */ | 726 /* Data type checking */ |
| 742 #define CONSP(x) (XTYPE ((x)) == Lisp_Cons) | 742 #define CONSP(x) (XTYPE ((x)) == Lisp_Cons) |
| 743 #define COMPILEDP(x) (XTYPE ((x)) == Lisp_Compiled) | 743 #define COMPILEDP(x) (XTYPE ((x)) == Lisp_Compiled) |
| 744 #define BUFFERP(x) (XTYPE ((x)) == Lisp_Buffer) | 744 #define BUFFERP(x) (XTYPE ((x)) == Lisp_Buffer) |
| 745 #define SUBRP(x) (XTYPE ((x)) == Lisp_Subr) | 745 #define SUBRP(x) (XTYPE ((x)) == Lisp_Subr) |
| 746 #define PROCESSP(x) (XTYPE ((x)) == Lisp_Process) | 746 #define PROCESSP(x) (XTYPE ((x)) == Lisp_Process) |
| 747 #ifdef MULTI_FRAME | |
| 747 #define FRAMEP(x) (XTYPE ((x)) == Lisp_Frame) | 748 #define FRAMEP(x) (XTYPE ((x)) == Lisp_Frame) |
| 749 #else | |
| 750 #ifdef MSDOS | |
| 751 /* We could use this in the !MSDOS case also, but we prefer a compile-time | |
| 752 error message in case FRAMEP is used. */ | |
| 753 #define FRAMEP(x) (EQ (x, Fselected_frame ())) | |
| 754 #endif | |
| 755 #endif | |
| 748 #define WINDOWP(x) (XTYPE ((x)) == Lisp_Window) | 756 #define WINDOWP(x) (XTYPE ((x)) == Lisp_Window) |
| 749 #define WINDOW_CONFIGURATIONP(x) (XTYPE ((x)) == Lisp_Window_Configuration) | 757 #define WINDOW_CONFIGURATIONP(x) (XTYPE ((x)) == Lisp_Window_Configuration) |
| 750 #ifdef LISP_FLOAT_TYPE | 758 #ifdef LISP_FLOAT_TYPE |
| 751 #define FLOATP(x) (XTYPE ((x)) == Lisp_Float) | 759 #define FLOATP(x) (XTYPE ((x)) == Lisp_Float) |
| 752 #else | 760 #else |