diff src/editfns.c @ 26629:05dcbc266797

(Fdelete_field): Make it noninteractive. Return nil.

--- 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,