From d01f35704121de41b33160e0ca4da02d7a300454 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 26 Nov 1999 23:08:26 +0000 Subject: [PATCH] (Fdelete_field): Make it noninteractive. Return nil. --- src/ChangeLog | 4 ++++ src/editfns.c | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 9a96272cbcc..8083e880d6a 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +1999-11-26 Richard M. Stallman + + * editfns.c (Fdelete_field): Make it noninteractive. Return nil. + 1999-11-26 Gerd Moellmann * puresize.h (BASE_PURESIZE): Increase to 550000. diff --git a/src/editfns.c b/src/editfns.c index 9cbebbda836..5856e91c859 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -429,7 +429,7 @@ find_field (pos, merge_at_boundary, beg, end) } } -DEFUN ("delete-field", Fdelete_field, Sdelete_field, 0, 1, "d", +DEFUN ("delete-field", Fdelete_field, Sdelete_field, 0, 1, 0, "Delete the field surrounding POS.\n\ A field is a region of text with the same `field' property.\n\ If POS is nil, the value of point is used for POS.") @@ -440,6 +440,7 @@ If POS is nil, the value of point is used for POS.") find_field (pos, Qnil, &beg, &end); if (beg != end) del_range (beg, end); + return Qnil; } DEFUN ("field-string", Ffield_string, Sfield_string, 0, 1, 0, -- 2.39.5