Mercurial > emacs

diff src/editfns.c @ 21521:354a7085f1d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fchar_after, Fchar_before): Fix mixing of Lisp_Object and int
author Andreas Schwab <schwab@suse.de>
date Tue, 14 Apr 1998 12:56:53 +0000
parents fa9ff387d260
children 2967063fe81c
line wrap: on
line diff
--- a/src/editfns.c	Tue Apr 14 12:55:11 1998 +0000
+++ b/src/editfns.c	Tue Apr 14 12:56:53 1998 +0000
@@ -579,7 +579,7 @@
   else
     {
       CHECK_NUMBER_COERCE_MARKER (pos, 0);
-      if (pos < BEGV || pos >= ZV)
+      if (XINT (pos) < BEGV || XINT (pos) >= ZV)
 	return Qnil;
       
       pos_byte = CHAR_TO_BYTE (XINT (pos));
@@ -614,7 +614,7 @@
     {
       CHECK_NUMBER_COERCE_MARKER (pos, 0);
 
-      if (pos <= BEGV || pos > ZV)
+      if (XINT (pos) <= BEGV || XINT (pos) > ZV)
 	return Qnil;
 
       pos_byte = CHAR_TO_BYTE (XINT (pos));