diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-10-19 16:58:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-10-19 16:58:30 +0000 |
| commit | 8550b998e80fbd6adf76671deed2e176d826ccf9 (patch) | |
| tree | db8343d457754a73b2129a6d712cba16abbce27c | |
| parent | 30b7be474f9c368a91437adecd43a44727565422 (diff) | |
| download | emacs-8550b998e80fbd6adf76671deed2e176d826ccf9.tar.gz | |
(Fdelete_and_extract_region): If region is empty, return null string.
| -rw-r--r-- | lisp/ChangeLog | 14 | ||||
| -rw-r--r-- | src/ChangeLog | 11 | ||||
| -rw-r--r-- | 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 <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); } |