From xemacs-m  Wed May 21 17:32:42 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id RAA28288
	for <xemacs-beta@xemacs.org>; Wed, 21 May 1997 17:32:41 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id AAA00046; Thu, 22 May 1997 00:32:41 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Expanding file names?
X-Save-Project-Gutenberg: <URL:http://www.promo.net/pg/nl/pgny_nov96.html>
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
X-AT&T-Hype: 
   Have you ever had boxes of Borax eat your mail while sitting
   quietly with your sexual toy?  Or had your telephone tell you that
   your spouse is an alien?  Or been hugged warmly by my owner while
   living on a planet where using a television as a sex toy is
   mysterious?  You will.  And the company that will bring it to you:
   AT&T.
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 22 May 1997 00:32:40 +0200
Message-ID: <kigoha43187.fsf@jagor.srce.hr>
Lines: 45
X-Mailer: Gnus v5.4.52/XEmacs 20.2

Are all the internal functions supposed to expand its file names, or
should the Lisp programmers do it?  Lots of old Lisp code does things
like (expand-file-name FILE) before calling even `find-file' and such, 
which looks very ugly.

In that respect, isn't this patch in order?

--- src/database.c.orig	Thu May 22 00:21:59 1997
+++ src/database.c	Thu May 22 00:28:52 1997
@@ -560,8 +560,10 @@
   DB_FUNCS *funcblock;
   struct database_struct *dbase = NULL;
   void *db = NULL;
+  struct gcpro gcpro1;
 
-  CHECK_STRING (file);
+  GCPRO1 (file);
+  file = Fexpand_file_name (file, Qnil);
 
   if (NILP (ackcess))
     {
@@ -639,6 +641,8 @@
   dbase->db_handle = db;
   dbase->funcs = funcblock;
   XSETDATABASE (retval, dbase);
+
+  UNGCPRO;
 
   return (retval);
 }


ChangeLog entry:

Thu May 22 00:31:21 1997  Hrvoje Niksic  <hniksic@srce.hr>

	* database.c (Fmake_database): Expand FILE.



-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
4.  Thou shalt not warlorde a sig if it bee the sig of Kibo, nor if
    it bee the sig of the Inner Circle.

