(Fdelete_field): Make it noninteractive. Return nil.

2 files changed, 6 insertions, 1 deletions

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  <rms@caffeine.ai.mit.edu>
+
+        * editfns.c (Fdelete_field): Make it noninteractive.  Return nil.
+
 1999-11-26  Gerd Moellmann  <gerd@gnu.org>
 
         * 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,