Mercurial > hg > xemacs-beta

comparison src/database.c @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 41dbb7a9d5f2
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
146 #endif 146 #endif
147 return db; 147 return db;
148 } 148 }
149 149
150 static Lisp_Object 150 static Lisp_Object
151 mark_database (Lisp_Object obj, void (*markobj) (Lisp_Object)) 151 mark_database (Lisp_Object obj)
152 { 152 {
153 Lisp_Database *db = XDATABASE (obj); 153 Lisp_Database *db = XDATABASE (obj);
154 154 return db->fname;
155 markobj (db->fname);
156 return Qnil;
157 } 155 }
158 156
159 static void 157 static void
160 print_database (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 158 print_database (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
161 { 159 {