Parent Directory | Revision Log | Patch
revision 1.359.2.11 by miles, Wed Sep 15 09:00:00 2004 UTC | revision 1.359.2.12 by miles, Fri Oct 22 10:13:35 2004 UTC | |
---|---|---|
# | Line 3000 DEFUN ("delete-and-extract-region", Fdel | Line 3000 DEFUN ("delete-and-extract-region", Fdel |
3000 | Lisp_Object start, end; | Lisp_Object start, end; |
3001 | { | { |
3002 | validate_region (&start, &end); | validate_region (&start, &end); |
3003 | if (XINT (start) == XINT (end)) | |
3004 | return build_string (""); | |
3005 | return del_range_1 (XINT (start), XINT (end), 1, 1); | return del_range_1 (XINT (start), XINT (end), 1, 1); |
3006 | } | } |
3007 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |