Fix last change.
authorDmitry Antipov <dmantipov@yandex.ru>
Fri, 2 Aug 2013 08:32:32 +0000 (12:32 +0400)
committerDmitry Antipov <dmantipov@yandex.ru>
Fri, 2 Aug 2013 08:32:32 +0000 (12:32 +0400)
src/insdel.c

index 6b0aa9d..58c3e15 100644 (file)
@@ -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;