From xemacs-m  Mon Feb 17 01:11:54 1997
Received: from macon.informatik.uni-tuebingen.de (macon2.Informatik.Uni-Tuebingen.De [134.2.13.2])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id BAA14525
	for <xemacs-beta@xemacs.org>; Mon, 17 Feb 1997 01:11:53 -0600 (CST)
Received: from modas.informatik.uni-tuebingen.de (modas.Informatik.Uni-Tuebingen.De [134.2.12.3]) by macon.informatik.uni-tuebingen.de (8.8.4/8.8.3/AIX-4.1/WSI-1.0) with SMTP id IAA13796 for <xemacs-beta@xemacs.org>; Mon, 17 Feb 1997 08:11:53 +0100
Received: by modas.informatik.uni-tuebingen.de (AIX 4.1/UCB 5.64/4.03)
          id AA25428; Mon, 17 Feb 1997 08:11:51 +0100
Sender: sperber@informatik.uni-tuebingen.de
To: xemacs-beta@xemacs.org
Subject: Re: patch to 19.15/b94 (efs)
References: <m3ybcofn30.fsf@jens.metrix.de>
Mime-Version: 1.0 (generated by tm-edit 7.101)
Content-Type: text/plain; charset=US-ASCII
From: sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])
Date: 17 Feb 1997 08:11:50 +0100
In-Reply-To: Jens Lautenbacher's message of 16 Feb 1997 22:38:43 +0100
Message-Id: <y9lhgjb7vpl.fsf@modas.informatik.uni-tuebingen.de>
Lines: 57
X-Mailer: Gnus v5.4.12/XEmacs 20.0


Yo Steve,

>>>>> "Jens" == Jens Lautenbacher <jens@metrix.de> writes:

Jens> following makes efs work (Noone could have tested this before...):

... the default-dir thingy looks like my last patch only made it
halfway in.

The efs.el patch looks bogus to me.  Why would it be needed?

I'll look into things once I can get one of the new betas this side of
our ftp connection.

Cheers =8-} Mike


Jens> [2 xemacs.patch <application/octet-stream>]
Jens> *** default-dir.el	Sun Feb 16 22:06:56 1997
Jens> --- ../../../../src/xemacs-19.15-b94/lisp/efs/default-dir.el	Sun Feb 16 22:20:20 1997
Jens> ***************
Jens> *** 52,58 ****
Jens>   Will use the variable default-directory-function if it non-nil."
Jens>     (if default-directory-function
Jens>         (funcall default-directory-function)
Jens> !     (if (eq default-dir-emacs-variant 'xemacs)
Jens>   	(abbreviate-file-name default-directory t)
Jens>         (abbreviate-file-name default-directory))))
  
Jens> --- 52,58 ----
Jens>   Will use the variable default-directory-function if it non-nil."
Jens>     (if default-directory-function
Jens>         (funcall default-directory-function)
Jens> !     (if (eq default-dir-emacs-version 'xemacs)
Jens>   	(abbreviate-file-name default-directory t)
Jens>         (abbreviate-file-name default-directory))))
  
Jens> *** efs.el	Sun Feb 16 22:13:56 1997
Jens> --- ../../../../src/xemacs-19.15-b94/lisp/efs/efs.el	Sun Feb 16 02:28:52 1997
Jens> ***************
Jens> *** 7433,7439 ****
Jens>   		     efs-files-hashtable)
Jens>   		    (file-exists-p filename))))
  	    
Jens> ! 	    (let* ((temp (concat
Jens>   			 (car (efs-make-tmp-name nil host))
Jens>   			 (efs-internal-file-name-extension filename)))
Jens>   		  (type (efs-xfer-type host-type filename nil nil))
Jens> --- 7433,7439 ----
Jens>   		     efs-files-hashtable)
Jens>   		    (file-exists-p filename))))
  	    
Jens> ! 	    (let ((temp (concat
Jens>   			 (car (efs-make-tmp-name nil host))
Jens>   			 (efs-internal-file-name-extension filename)))
Jens>   		  (type (efs-xfer-type host-type filename nil nil))

