# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1078263723 0
# Node ID 6625957ce0aee3fbeb7e2bb282cdc234fc6ddafb
# Parent  d03a6d1ad7acc5645ca4493df98b7572eba20bf7
(Ftranslate_region): Lisp_Object/int mixup.

diff -r d03a6d1ad7ac -r 6625957ce0ae src/editfns.c
--- a/src/editfns.c	Tue Mar 02 16:04:57 2004 +0000
+++ b/src/editfns.c	Tue Mar 02 21:42:03 2004 +0000
@@ -1,5 +1,5 @@
 /* Lisp functions pertaining to editing.
-   Copyright (C) 1985,86,87,89,93,94,95,96,97,98, 1999, 2000, 2001, 02, 2003
+   Copyright (C) 1985,86,87,89,93,94,95,96,97,98,1999,2000,01,02,03,2004
 	Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -2772,7 +2772,7 @@
   modify_region (current_buffer, pos, XINT (end));
 
   cnt = 0;
-  for (; pos < end; )
+  for (; pos < XINT (end); )
     {
       register unsigned char *p = BYTE_POS_ADDR (pos_byte);
       unsigned char *str;