From xemacs-m  Tue Jul  8 01:12:48 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id BAA16712
	for <xemacs-beta@xemacs.org>; Tue, 8 Jul 1997 01:12:47 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.6/8.8.6) id XAA03040;
	Mon, 7 Jul 1997 23:15:35 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: [PATCH] default-dir.el LOSING_BYTECODE fix
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@xemacs.org>
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
Date: 07 Jul 1997 23:15:33 -0700
Message-ID: <m2d8ouvzlm.fsf@altair.xemacs.org>
Lines: 38
X-Mailer: Gnus v5.4.62/XEmacs 20.3(beta12) - "Helsinki"

;; I believe we can safely assume beta12 will be released tomorrow.

The following patch fixes (I think) all the lossage associated with
default-dir and EFS.  This includes the Wrong-type-argument on
`find-file' operations.  Please give it a test drive.

1997-07-07  Steven L Baur  <steve@altair.xemacs.org>

	* efs/efs-ovwrt.el (efs-overwrite-fn): Attempt to correctly deal
	with the interactive spec.

Index: lisp/efs/efs-ovwrt.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/efs/efs-ovwrt.el,v
retrieving revision 1.4
diff -u -r1.4 efs-ovwrt.el
--- efs-ovwrt.el	1997/07/07 00:52:35	1.4
+++ efs-ovwrt.el	1997/07/08 06:13:03
@@ -111,10 +111,10 @@
 				    (compiled-function-instructions nfun)
 				    (compiled-function-constants nfun)
 				    (compiled-function-stack-depth nfun)
-				    ndoc-str)
-			      (if (compiled-function-interactive nfun)
-				  (list (compiled-function-interactive nfun))
-				nil))))
+				    ndoc-str)))
+		   spec)
+	       (if (setq spec (compiled-function-interactive nfun))
+		   (setq new-code (nconc new-code (list (nth 1 spec)))))
 	       (fset new (apply 'make-byte-code new-code))))))))
 
 


-- 
steve@calag.com baur
Unsolicited commercial e-mail will be billed at $250/message.

