Mercurial > hg > xemacs-beta

comparison src/buffer.h @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 95016f13131a
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
217 217
218 DECLARE_LRECORD (buffer, struct buffer); 218 DECLARE_LRECORD (buffer, struct buffer);
219 #define XBUFFER(x) XRECORD (x, buffer, struct buffer) 219 #define XBUFFER(x) XRECORD (x, buffer, struct buffer)
220 #define XSETBUFFER(x, p) XSETRECORD (x, p, buffer) 220 #define XSETBUFFER(x, p) XSETRECORD (x, p, buffer)
221 #define BUFFERP(x) RECORDP (x, buffer) 221 #define BUFFERP(x) RECORDP (x, buffer)
222 #define GC_BUFFERP(x) GC_RECORDP (x, buffer)
223 #define CHECK_BUFFER(x) CHECK_RECORD (x, buffer) 222 #define CHECK_BUFFER(x) CHECK_RECORD (x, buffer)
224 #define CONCHECK_BUFFER(x) CONCHECK_RECORD (x, buffer) 223 #define CONCHECK_BUFFER(x) CONCHECK_RECORD (x, buffer)
225 224
226 #define BUFFER_LIVE_P(b) (!NILP ((b)->name)) 225 #define BUFFER_LIVE_P(b) (!NILP ((b)->name))
227 226
566 return CHARP (obj) ? XCHAR (obj) : XINT (obj); 565 return CHARP (obj) ? XCHAR (obj) : XINT (obj);
567 } 566 }
568 567
569 #else 568 #else
570 569
571 #define XCHAR_OR_CHAR_INT(obj) (CHARP ((obj)) ? XCHAR ((obj)) : XINT ((obj))) 570 #define XCHAR_OR_CHAR_INT(obj) (CHARP (obj) ? XCHAR (obj) : XINT (obj))
572 571
573 #endif 572 #endif
574 573
575 #define CHECK_CHAR_COERCE_INT(x) do { \ 574 #define CHECK_CHAR_COERCE_INT(x) do { \
576 if (CHARP (x)) \ 575 if (CHARP (x)) \