diff --git a/src/builtin_functions.c b/src/builtin_functions.c
index 2f3ceda912d8452de095e025c37946df9770ef51..db47be1e007d704a844785806b7d5ae27c41e4e3 100644
--- a/src/builtin_functions.c
+++ b/src/builtin_functions.c
@@ -5,7 +5,7 @@
 \*/
 /**/
 #include "global.h"
-RCSID("$Id: builtin_functions.c,v 1.281 2000/06/09 22:44:47 mast Exp $");
+RCSID("$Id: builtin_functions.c,v 1.282 2000/06/20 03:26:16 hubbe Exp $");
 #include "interpret.h"
 #include "svalue.h"
 #include "pike_macros.h"
@@ -5697,10 +5697,6 @@ void init_builtin_efuns(void)
 /* function(string:string) */
   ADD_EFUN("lower_case",f_lower_case,tFunc(tStr,tStr),OPT_TRY_OPTIMIZE);
   
-/* function(0=mapping,mixed:0) */
-  ADD_EFUN("m_delete",f_m_delete,tFunc(tSetvar(0,tMapping) tMix,tVar(0)),
-	   OPT_SIDE_EFFECT);
-  
 /* function(mixed:int) */
   ADD_EFUN("mappingp",f_mappingp,tFunc(tMix,tInt),OPT_TRY_OPTIMIZE);
   
diff --git a/src/mapping.c b/src/mapping.c
index bf8e61e798d741fa365b1ad565319c1d2377b1e6..7dd85dbe41cdeae5d9e063d04f80f4b0070f90b6 100644
--- a/src/mapping.c
+++ b/src/mapping.c
@@ -5,7 +5,7 @@
 \*/
 /**/
 #include "global.h"
-RCSID("$Id: mapping.c,v 1.86 2000/06/12 19:33:08 mast Exp $");
+RCSID("$Id: mapping.c,v 1.87 2000/06/20 03:26:16 hubbe Exp $");
 #include "main.h"
 #include "object.h"
 #include "mapping.h"
@@ -1540,17 +1540,6 @@ node *make_node_from_mapping(struct mapping *m)
   }
 }
 
-void f_m_delete(INT32 args)
-{
-  if(args < 2)
-    error("Too few arguments to m_delete.\n");
-  if(sp[-args].type != T_MAPPING)
-    error("Bad argument 1 to m_delete.\n");
-
-  map_delete(sp[-args].u.mapping,sp+1-args);
-  pop_n_elems(args-1);
-}
-
 void f_aggregate_mapping(INT32 args)
 {
   INT32 e;