* window.c (enlarge_window): In new preserve_before code, convert CURBEG from

lisp object to integer before doing arithmetic.

2 files changed, 6 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index cba789f9aec..03fc611590f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-27  Ken Raeburn  <raeburn@gnu.org>
+
+        * window.c (enlarge_window): In new preserve_before code, convert
+        CURBEG from lisp object to integer before doing arithmetic.
+
 2001-12-27  Richard M. Stallman  <rms@gnu.org>
 
         * bytecode.c (Fbyte_code): Undo previous change.
diff --git a/src/window.c b/src/window.c
index 35694084a9b..0e5af1f0790 100644
--- a/src/window.c
+++ b/src/window.c
@@ -3394,7 +3394,7 @@ enlarge_window (window, delta, widthflag, preserve_before)
           {
             maxdelta = (*sizefun) (parent) - XINT (*sizep);
             /* Subtract size of siblings before, since we can't take that.  */
-            maxdelta -= CURBEG (window) - CURBEG (parent);
+            maxdelta -= XINT (CURBEG (window)) - XINT (CURBEG (parent));
           }
         else
           maxdelta = (!NILP (p->next) ? ((*sizefun) (p->next)