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

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.

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.

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);
 }