Mercurial > emacs
comparison src/lisp.h @ 2662:5b92bdfb7fbb
* lisp.h (CHAR_ALT, CHAR_SUPER, CHAR_HYPER, CHAR_SHIFT, CHAR_CTL,
CHAR_META): Shift these all up one bit, back to where they were.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 04 May 1993 13:02:26 +0000 |
| parents | d547e1a7eb9b |
| children | 93c9529b2b69 |
comparison
equal
deleted
inserted
replaced
| 2661:77f1457d000e | 2662:5b92bdfb7fbb |
|---|---|
| 567 #define COMPILED_CONSTANTS 2 | 567 #define COMPILED_CONSTANTS 2 |
| 568 #define COMPILED_STACK_DEPTH 3 | 568 #define COMPILED_STACK_DEPTH 3 |
| 569 #define COMPILED_DOC_STRING 4 | 569 #define COMPILED_DOC_STRING 4 |
| 570 #define COMPILED_INTERACTIVE 5 | 570 #define COMPILED_INTERACTIVE 5 |
| 571 | 571 |
| 572 /* Flag bits in a character. These also get used in termhooks.h. */ | 572 /* Flag bits in a character. These also get used in termhooks.h. |
| 573 #define CHAR_ALT (0x020000) | 573 Richard Stallman <rms@gnu.ai.mit.edu> thinks that MULE |
| 574 #define CHAR_SUPER (0x040000) | 574 (MUlti-Lingual Emacs) might need 18 bits for the character value |
| 575 #define CHAR_HYPER (0x080000) | 575 itself, so we probably shouldn't use any bits lower than 0x040000. */ |
| 576 #define CHAR_SHIFT (0x100000) | 576 #define CHAR_ALT (0x040000) |
| 577 #define CHAR_CTL (0x200000) | 577 #define CHAR_SUPER (0x080000) |
| 578 #define CHAR_META (0x400000) | 578 #define CHAR_HYPER (0x100000) |
| 579 #define CHAR_SHIFT (0x200000) | |
| 580 #define CHAR_CTL (0x400000) | |
| 581 #define CHAR_META (0x800000) | |
| 579 | 582 |
| 580 /* Data type checking */ | 583 /* Data type checking */ |
| 581 | 584 |
| 582 #define NILP(x) (XFASTINT (x) == XFASTINT (Qnil)) | 585 #define NILP(x) (XFASTINT (x) == XFASTINT (Qnil)) |
| 583 #define GC_NILP(x) GC_EQ (x, Qnil) | 586 #define GC_NILP(x) GC_EQ (x, Qnil) |