1 files changed, 5 insertions, 2 deletions

diff --git a/src/insdel.c b/src/insdel.c
index 6b0aa9db3e3..58c3e15c233 100644
--- a/src/insdel.c
+++ b/src/insdel.c
@@ -1374,8 +1374,11 @@ replace_range (ptrdiff_t from, ptrdiff_t to, Lisp_Object new,
      the deletion will be undone first.  Thus, undo
      will insert before deleting, and thus will keep
      the markers before and after this text separate.  */
-  record_insert (from + SCHARS (deletion), inschars);
-  record_delete (from, deletion);
+  if (!NILP (deletion))
+    {
+      record_insert (from + SCHARS (deletion), inschars);
+      record_delete (from, deletion);
+    }
 
   GAP_SIZE -= outgoing_insbytes;
   GPT += inschars;