diff options
| author | Richard M. Stallman | 2004-10-19 16:58:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-10-19 16:58:30 +0000 |
| commit | 8550b998e80fbd6adf76671deed2e176d826ccf9 (patch) | |
| tree | db8343d457754a73b2129a6d712cba16abbce27c /src/editfns.c | |
| parent | 30b7be474f9c368a91437adecd43a44727565422 (diff) | |
| download | emacs-8550b998e80fbd6adf76671deed2e176d826ccf9.tar.gz emacs-8550b998e80fbd6adf76671deed2e176d826ccf9.zip | |
(Fdelete_and_extract_region): If region is empty, return null string.
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 2 |
1 files changed, 2 insertions, 0 deletions
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, | |||
| 2844 | Lisp_Object start, end; | 2844 | Lisp_Object start, end; |
| 2845 | { | 2845 | { |
| 2846 | validate_region (&start, &end); | 2846 | validate_region (&start, &end); |
| 2847 | if (XINT (start) == XINT (end)) | ||
| 2848 | return build_string (""); | ||
| 2847 | return del_range_1 (XINT (start), XINT (end), 1, 1); | 2849 | return del_range_1 (XINT (start), XINT (end), 1, 1); |
| 2848 | } | 2850 | } |
| 2849 | 2851 | ||