* lisp/subr.el (combine-change-calls-1): Don't presume integer args

This avoids problems where the `after-change-functions` end up called
with the new length rather than the old length.

diff --git a/lisp/subr.el b/lisp/subr.el
index 6573090ebe311dcdc91fc616f399acbf3b2e53f2..eb287287608a4ac1f3446fa331f9c3c63ec5314d 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -4330,6 +4330,8 @@ the specified region.  It must not change
 Additionally, the buffer modifications of BODY are recorded on
 the buffer's undo list as a single (apply ...) entry containing
 the function `undo--wrap-and-run-primitive-undo'."
+  (if (markerp beg) (setq beg (marker-position beg)))
+  (if (markerp end) (setq end (marker-position end)))
   (let ((old-bul buffer-undo-list)
        (end-marker (copy-marker end t))
        result)