(Fdelete_and_extract_region): If region is empty, return null string.

3 files changed, 23 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 070bcaab658..902a5e2ac2a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,17 @@
+2004-10-19  Richard M. Stallman  <rms@gnu.org>
+
+        * textmodes/flyspell.el (flyspell-mode): Doc fix.
+
+        * eshell/em-unix.el (eshell-grep):
+        Don't bind compilation-process-setup-function.
+
+        * comint.el (comint-insert-input): Use @ in `interactive'.
+        (comint-input-filter-functions): Doc fix.
+        (comint-kill-whole-line, comint-get-source): Doc fix.
+
+        * progmodes/compile.el (compilation-setup):
+        Don't set buffer-read-only if MINOR is non-nil.
+
 2004-10-19  Ulf Jasper  <ulf.jasper@web.de>
 
         * calendar/icalendar.el: Set coding to utf-8.
diff --git a/src/ChangeLog b/src/ChangeLog
index a5d67cfbf95..5b22d072cf7 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2004-10-19  Richard M. Stallman  <rms@gnu.org>
+
+        * editfns.c (Fdelete_and_extract_region):
+        If region is empty, return null string.
+
 2004-10-19  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
         * gtkutil.h (xg_update_scrollbar_pos): Remove arguments real_left 
@@ -21,10 +26,9 @@
         arguments left and width to xg_update_scrollbar_pos.
         (XTset_vertical_scroll_bar): Do x_clear_area for USE_GTK also.
 
-2004-10-19  Kim F. Storm  <storm@cua.dk>
+2004-10-19  Kenichi Handa  <handa@m17n.org>
 
         * xdisp.c (display_mode_element): Fix display of wide chars.
-        From Kenichi Handa  <handa@m17n.org>.
 
 2004-10-18  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
@@ -36,8 +40,7 @@
 
         * fontset.c (fs_load_font): Use fast_string_match_ignore_case for
         comparing font names.
-        (fs_query_fontset): Use fast_string_match for comparing fontset
-        names.
+        (fs_query_fontset): Use fast_string_match for comparing fontset names.
         (list_fontsets): Likewise.
 
         * search.c (fast_string_match_ignore_case): New function.
diff --git a/src/editfns.c b/src/editfns.c
index 51f8a71d531..2870c59884a 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2844,6 +2844,8 @@ DEFUN ("delete-and-extract-region", Fdelete_and_extract_region,
      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);
 }