Mercurial > hg > xemacs-beta

comparison src/buffer.h @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents 3d6bfa290dbd
children 11cf20601dec
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
590 INLINE Emchar XCHAR_OR_CHAR_INT (Lisp_Object obj); 590 INLINE Emchar XCHAR_OR_CHAR_INT (Lisp_Object obj);
591 INLINE Emchar 591 INLINE Emchar
592 XCHAR_OR_CHAR_INT (Lisp_Object obj) 592 XCHAR_OR_CHAR_INT (Lisp_Object obj)
593 { 593 {
594 assert (CHAR_OR_CHAR_INTP (obj)); 594 assert (CHAR_OR_CHAR_INTP (obj));
595 return XREALINT (obj); 595 return CHARP (obj) ? XCHAR (obj) : XINT (obj);
596 } 596 }
597 597
598 #else 598 #else
599 599
600 #define XCHAR_OR_CHAR_INT(obj) XREALINT (obj) 600 #define XCHAR_OR_CHAR_INT(obj) (CHARP ((obj)) ? XCHAR ((obj)) : XINT ((obj)))
601 601
602 #endif 602 #endif
603 603
604 #define CHECK_CHAR_COERCE_INT(x) do { \ 604 #define CHECK_CHAR_COERCE_INT(x) do { \
605 if (CHARP (x)) \ 605 if (CHARP (x)) \