Mercurial > hg > xemacs-beta

comparison src/database.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents 080d479edd32
children ec25549f1f43
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
159 Lisp_Database *db = XDATABASE (object); 159 Lisp_Database *db = XDATABASE (object);
160 return db->fname; 160 return db->fname;
161 } 161 }
162 162
163 static void 163 static void
164 print_database (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 164 print_database (Lisp_Object obj, Lisp_Object printcharfun,
165 int UNUSED (escapeflag))
165 { 166 {
166 Lisp_Database *db = XDATABASE (obj); 167 Lisp_Database *db = XDATABASE (obj);
167 168
168 if (print_readably) 169 if (print_readably)
169 printing_unreadable_object ("#<database 0x%x>", db->header.uid); 170 printing_unreadable_object ("#<database 0x%x>", db->header.uid);
366 }; 367 };
367 #endif /* HAVE_DBM */ 368 #endif /* HAVE_DBM */
368 369
369 #ifdef HAVE_BERKELEY_DB 370 #ifdef HAVE_BERKELEY_DB
370 static Lisp_Object 371 static Lisp_Object
371 berkdb_type (Lisp_Database *db) 372 berkdb_type (Lisp_Database *UNUSED (db))
372 { 373 {
373 return Qberkeley_db; 374 return Qberkeley_db;
374 } 375 }
375 376
376 static Lisp_Object 377 static Lisp_Object