(Fdelete_field): Make it noninteractive. Return nil.

diff --git a/src/ChangeLog b/src/ChangeLog
index 9a96272cbcc73ffb430f9cde11a53e64ae028c1d..8083e880d6a8b90fe4080ee1313c267aca5f26f8 100644 (file)
--- 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 9cbebbda8360314d89099bff14e17984e17b4c0e..5856e91c859399d4e72e820360aec8398cb67ad3 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -429,7 +429,7 @@ find_field (pos, merge_at_boundary, beg, end)
     }
 }
 \f
-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,