From 8550b998e80fbd6adf76671deed2e176d826ccf9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 19 Oct 2004 16:58:30 +0000 Subject: [PATCH] (Fdelete_and_extract_region): If region is empty, return null string. --- lisp/ChangeLog | 14 ++++++++++++++ src/ChangeLog | 11 +++++++---- src/editfns.c | 2 ++ 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 + + * 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 * 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 + + * editfns.c (Fdelete_and_extract_region): + If region is empty, return null string. + 2004-10-19 Jan Dj,Ad(Brv * 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 +2004-10-19 Kenichi Handa * xdisp.c (display_mode_element): Fix display of wide chars. - From Kenichi Handa . 2004-10-18 Jan Dj,Ad(Brv @@ -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); } -- 2.11.4.GIT