# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 943657685 0
# Node ID 05dcbc26679734f71ebeef5cd5684441026e523e
# Parent  10c31fda7fc2e794383447533d3788a208641de5
(Fdelete_field): Make it noninteractive.  Return nil.

diff -r 10c31fda7fc2 -r 05dcbc266797 src/editfns.c
--- a/src/editfns.c	Fri Nov 26 21:27:25 1999 +0000
+++ b/src/editfns.c	Fri Nov 26 23:08:05 1999 +0000
@@ -429,7 +429,7 @@
     }
 }
 
-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 @@
   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,