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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 070bcaa..902a5e2 100644 (file)
--- 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 a5d67cf..5b22d07 100644 (file)
--- 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\e,Ad\e(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\e,Ad\e(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 51f8a71..2870c59 100644 (file)
--- 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);
 }
 \f