# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1098205011 0
# Node ID 6a526f57129e5842b8e3733ecd69e50c6ec056f7
# Parent  6738a2db21677493eaf6e2e729286efe1ef6d65f
(Fdelete_and_extract_region): If region is empty, return null string.

diff -r 6738a2db2167 -r 6a526f57129e src/editfns.c
--- a/src/editfns.c	Tue Oct 19 16:54:17 2004 +0000
+++ b/src/editfns.c	Tue Oct 19 16:56:51 2004 +0000
@@ -2844,6 +2844,8 @@
      Lisp_Object start, end;
 {
   validate_region (&start, &end);
+  if (XINT (start) == XINT (end))
+    return build_string ("");
   return del_range_1 (XINT (start), XINT (end), 1, 1);
 }