From: Dmitry Antipov <dmantipov@yandex.ru>
Date: Fri, 2 Aug 2013 08:32:32 +0000 (+0400)
Subject: Fix last change.
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/3521bd09b3c11b68c009d290efb4350289f2d3e6

Fix last change.
---

diff --git a/src/insdel.c b/src/insdel.c
index 6b0aa9db3e..58c3e15c23 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;