From xemacs-m  Tue Apr  8 01:42:44 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 BAA22905
	for <xemacs-beta@xemacs.org>; Tue, 8 Apr 1997 01:42:43 -0500 (CDT)
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 IAA13252 for <xemacs-beta@xemacs.org>; Tue, 8 Apr 1997 08:42:43 +0200
Received: by modas.informatik.uni-tuebingen.de (AIX 4.1/UCB 5.64/4.03)
          id AA19704; Tue, 8 Apr 1997 08:42:42 +0200
Sender: sperber@informatik.uni-tuebingen.de
To: xemacs-beta@xemacs.org
Subject: EFS fix for rcompile
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: multipart/mixed;
 boundary="Multipart_Tue_Apr__8_08:42:41_1997-1"
Content-Transfer-Encoding: 7bit
From: sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])
Date: 08 Apr 1997 08:42:41 +0200
Message-Id: <y9lsp1210da.fsf@modas.informatik.uni-tuebingen.de>
Lines: 86
X-Mailer: Gnus v5.4.40/XEmacs 20.1(beta11)

--Multipart_Tue_Apr__8_08:42:41_1997-1
Content-Type: text/plain; charset=US-ASCII


The obvious thing.  There's an XEmacs change anyway.


--Multipart_Tue_Apr__8_08:42:41_1997-1
Content-Type: text/plain; charset=US-ASCII

*** lisp/packages/rcompile.el~	Wed Dec 18 23:42:53 1996
--- lisp/packages/rcompile.el	Tue Apr  8 08:29:31 1997
***************
*** 106,117 ****
    "Compile the current buffer's directory on HOST.  Log in as USER.
  See \\[compile]."
    (interactive
!    (let ((parsed (and (featurep 'ange-ftp)
! 		      ;; XEmacs change
! 		      (or (and (fboundp 'ange-ftp-ftp-name)
! 			       (ange-ftp-ftp-name default-directory))
! 			  (and (fboundp 'ange-ftp-ftp-path)
! 			       (ange-ftp-ftp-path default-directory)))))
           host user command prompt)
       (if parsed
           (setq host (nth 0 parsed)
--- 106,121 ----
    "Compile the current buffer's directory on HOST.  Log in as USER.
  See \\[compile]."
    (interactive
!    (let ((parsed 
! 	  ;; XEmacs change
! 	  (cond
! 	   ((featurep 'efs)
! 	    (efs-ftp-path default-directory))
! 	   ((featurep 'ange-ftp)
! 	    (if (fboundp 'ange-ftp-ftp-name)
! 		(ange-ftp-ftp-name default-directory)
! 	      (ange-ftp-ftp-path default-directory)))
! 	   (t nil)))
           host user command prompt)
       (if parsed
           (setq host (nth 0 parsed)
***************
*** 145,156 ****
           (setq remote-compile-user user))
          ((null remote-compile-user)
           (setq remote-compile-user (user-login-name))))
!   (let* ((parsed (and (featurep 'ange-ftp)
! 		      ;; XEmacs change
! 		      (or (and (fboundp 'ange-ftp-ftp-name)
! 			       (ange-ftp-ftp-name default-directory))
! 			  (and (fboundp 'ange-ftp-ftp-path)
! 			       (ange-ftp-ftp-path default-directory)))))
           (compile-command
            (format "%s %s -l %s \"(%scd %s; %s)\""
  		  remote-shell-program
--- 149,164 ----
           (setq remote-compile-user user))
          ((null remote-compile-user)
           (setq remote-compile-user (user-login-name))))
!   (let* ((parsed
! 	  ;; XEmacs change
! 	  (cond
! 	   ((featurep 'efs)
! 	    (efs-ftp-path default-directory))
! 	   ((featurep 'ange-ftp)
! 	    (if (fboundp 'ange-ftp-ftp-name)
! 		(ange-ftp-ftp-name default-directory)
! 	      (ange-ftp-ftp-path default-directory)))
! 	   (t nil)))
           (compile-command
            (format "%s %s -l %s \"(%scd %s; %s)\""
  		  remote-shell-program

--Multipart_Tue_Apr__8_08:42:41_1997-1
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable



-- 
Cheers =3D8-} Mike
Friede, V=F6lkerverst=E4ndigung und =FCberhaupt blabla

--Multipart_Tue_Apr__8_08:42:41_1997-1--

