Mercurial > hg > xemacs-beta

comparison src/database.c @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 538048ae2ab8
children 6b37e6ddd302
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
342 } 342 }
343 343
344 static Lisp_Object 344 static Lisp_Object
345 dbm_lasterr (struct database_struct *dbp) 345 dbm_lasterr (struct database_struct *dbp)
346 { 346 {
347 return Fstrerror (make_int (dbp->dberrno)); 347 return lisp_strerror (dbp->dberrno);
348 } 348 }
349 349
350 static void 350 static void
351 dbm_closeit (struct database_struct *db) 351 dbm_closeit (struct database_struct *db)
352 { 352 {
424 } 424 }
425 425
426 static Lisp_Object 426 static Lisp_Object
427 berkdb_lasterr (struct database_struct *dbp) 427 berkdb_lasterr (struct database_struct *dbp)
428 { 428 {
429 return Fstrerror (make_int (dbp->dberrno)); 429 return lisp_strerror (dbp->dberrno);
430 } 430 }
431 431
432 static Lisp_Object 432 static Lisp_Object
433 berkdb_get (struct database_struct *db, Lisp_Object key) 433 berkdb_get (struct database_struct *db, Lisp_Object key)
434 { 434 {
537 (obj)) 537 (obj))
538 { 538 {
539 struct database_struct *db; 539 struct database_struct *db;
540 540
541 if (NILP (obj)) 541 if (NILP (obj))
542 return Fstrerror (make_int (errno)); 542 return lisp_strerror (errno);
543 543
544 CHECK_DATABASE (obj); 544 CHECK_DATABASE (obj);
545 db = XDATABASE (obj); 545 db = XDATABASE (obj);
546 return (db->funcs->last_error (db)); 546 return (db->funcs->last_error (db));
547 } 547 }