Mercurial > hg > xemacs-beta
diff src/database.c @ 151:59463afc5666 r20-3b2
Import from CVS: tag r20-3b2
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:37:19 +0200 |
| parents | 538048ae2ab8 |
| children | 6b37e6ddd302 |
line wrap: on
line diff
--- a/src/database.c Mon Aug 13 09:36:20 2007 +0200 +++ b/src/database.c Mon Aug 13 09:37:19 2007 +0200 @@ -344,7 +344,7 @@ static Lisp_Object dbm_lasterr (struct database_struct *dbp) { - return Fstrerror (make_int (dbp->dberrno)); + return lisp_strerror (dbp->dberrno); } static void @@ -426,7 +426,7 @@ static Lisp_Object berkdb_lasterr (struct database_struct *dbp) { - return Fstrerror (make_int (dbp->dberrno)); + return lisp_strerror (dbp->dberrno); } static Lisp_Object @@ -539,7 +539,7 @@ struct database_struct *db; if (NILP (obj)) - return Fstrerror (make_int (errno)); + return lisp_strerror (errno); CHECK_DATABASE (obj); db = XDATABASE (obj);