Mercurial > hg > xemacs-beta

diff src/database.c @ 187:b405438285a2 r20-3b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b20
author cvs
date Mon, 13 Aug 2007 09:56:28 +0200
parents 3d6bfa290dbd
children 850242ba4a81
line wrap: on
line diff
--- a/src/database.c	Mon Aug 13 09:55:30 2007 +0200
+++ b/src/database.c	Mon Aug 13 09:56:28 2007 +0200
@@ -512,13 +512,18 @@
 */
        (file, type, subtype, access_, mode))
 {
+  /* This function can GC */
   Lisp_Object retval = Qnil;
   int modemask;
   int accessmask = 0;
   struct database *dbase = NULL;
   char *filename;
+  struct gcpro gcpro1, gcpro2;
 
   CHECK_STRING (file);
+  GCPRO2 (file, access_);
+  file = Fexpand_file_name (file, Qnil);
+  UNGCPRO;
   filename = (char *) XSTRING_DATA (file);
 
   if (NILP (access_))