X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fdatabase.c;h=21cf7bc84e39f52f7c476b49885c07e3f5d1c0b8;hb=112b4eb6a71cd613a534b4246b4cc024ed9bf22e;hp=79dd595c5772208336d0c4a38d6329a581d2cb8b;hpb=e641a992060dabef4609a39a7025a4712c680d5a;p=chise%2Fxemacs-chise.git-

diff --git a/src/database.c b/src/database.c
index 79dd595..21cf7bc 100644
--- a/src/database.c
+++ b/src/database.c
@@ -769,7 +769,7 @@ If there is no corresponding value, return DEFAULT (defaults to nil).
   }
 }
 
-DEFUN ("map-database", Fmapdatabase, 2, 2, 0, /*
+DEFUN ("map-database", Fmap_database, 2, 2, 0, /*
 Map FUNCTION over entries in DATABASE, calling it with two args,
 each key and value in the database.
 */
@@ -804,7 +804,7 @@ syms_of_database (void)
 
   DEFSUBR (Fopen_database);
   DEFSUBR (Fdatabasep);
-  DEFSUBR (Fmapdatabase);
+  DEFSUBR (Fmap_database);
   DEFSUBR (Fput_database);
   DEFSUBR (Fget_database);
   DEFSUBR (Fremove_database);