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 /src/editfns.c | |
| parent | 30b7be474f9c368a91437adecd43a44727565422 (diff) | |
| download | emacs-8550b998e80fbd6adf76671deed2e176d826ccf9.tar.gz | |
(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, 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); } |