Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/buffer.h	Mon Aug 13 10:03:54 2007 +0200
+++ b/src/buffer.h	Mon Aug 13 10:04:58 2007 +0200
@@ -592,12 +592,12 @@
 XCHAR_OR_CHAR_INT (Lisp_Object obj)
 {
   assert (CHAR_OR_CHAR_INTP (obj));
-  return XREALINT (obj);
+  return CHARP (obj) ? XCHAR (obj) : XINT (obj);
 }
 
 #else
 
-#define XCHAR_OR_CHAR_INT(obj) XREALINT (obj)
+#define XCHAR_OR_CHAR_INT(obj) (CHARP ((obj)) ? XCHAR ((obj)) : XINT ((obj)))
 
 #endif