Mercurial > emacs
comparison src/lisp.h @ 90294:c5406394f567
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-13
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 43-57)
- Update from CVS
- Merge from erc--emacs--0
- Make constrain-to-field notice overlays
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 18-21)
- Update from CVS
- Merge from emacs--devo--0
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 08 Feb 2006 04:26:44 +0000 |
| parents | 7beb78bc1f8e 3bd95f4f2941 |
| children | 4b3d39451150 |
comparison
equal
deleted
inserted
replaced
| 90293:275e0a144c1d | 90294:c5406394f567 |
|---|---|
| 1 /* Fundamental definitions for GNU Emacs Lisp interpreter. | 1 /* Fundamental definitions for GNU Emacs Lisp interpreter. |
| 2 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2000, | 2 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2000, |
| 3 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. | 3 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 This file is part of GNU Emacs. | 5 This file is part of GNU Emacs. |
| 6 | 6 |
| 7 GNU Emacs is free software; you can redistribute it and/or modify | 7 GNU Emacs is free software; you can redistribute it and/or modify |
| 8 it under the terms of the GNU General Public License as published by | 8 it under the terms of the GNU General Public License as published by |
| 483 and did not adjust it in that case. | 483 and did not adjust it in that case. |
| 484 But I don't think that zero should ever be found | 484 But I don't think that zero should ever be found |
| 485 in a Lisp object whose data type says it points to something. */ | 485 in a Lisp object whose data type says it points to something. */ |
| 486 #define XPNTR(a) (XUINT (a) | DATA_SEG_BITS) | 486 #define XPNTR(a) (XUINT (a) | DATA_SEG_BITS) |
| 487 #else | 487 #else |
| 488 #define XPNTR(a) XUINT (a) | 488 /* Some versions of gcc seem to consider the bitfield width when |
| 489 issuing the "cast to pointer from integer of different size" | |
| 490 warning, so the cast is here to widen the value back to its natural | |
| 491 size. */ | |
| 492 #define XPNTR(a) ((EMACS_INT) XUINT (a)) | |
| 489 #endif | 493 #endif |
| 490 #endif /* not HAVE_SHM */ | 494 #endif /* not HAVE_SHM */ |
| 491 #endif /* no XPNTR */ | 495 #endif /* no XPNTR */ |
| 492 | 496 |
| 493 /* Largest and smallest representable fixnum values. These are the C | 497 /* Largest and smallest representable fixnum values. These are the C |