From xemacs-m  Mon Sep 22 14:27:14 1997
Received: from wfdutilgw.ml.com (wfdutilf01.ml.com [206.3.74.31])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id OAA07282
	for <xemacs-beta@xemacs.org>; Mon, 22 Sep 1997 14:27:10 -0500 (CDT)
Received: from ml1.ml.com ([199.201.57.130])
	by wfdutilgw.ml.com (8.8.7/8.8.7/MLgwo-3.04) with ESMTP id PAA07560
	for <xemacs-beta@xemacs.org>; Mon, 22 Sep 1997 15:27:50 -0400 (EDT)
Received: from commpost.ml.com (commpost.ml.com [146.125.4.24])
	by ml1.ml.com (8.8.5/8.8.5/MLml4-2.07) with SMTP id PAA29181
	for <xemacs-beta@xemacs.org>; Mon, 22 Sep 1997 15:26:39 -0400 (EDT)
Received: from spssunp.spspme.ml.com (spssunp.spspme.ml.com [192.168.111.13]) by commpost.ml.com (8.6.12/8.6.12) with ESMTP id PAA04077 for <xemacs-beta@xemacs.org>; Mon, 22 Sep 1997 15:26:39 -0400
Received: by spssunp.spspme.ml.com (SMI-8.6/SMI-4.1)
	id PAA26986; Mon, 22 Sep 1997 15:26:38 -0400
To: XEmacs Beta List <xemacs-beta@xemacs.org>
Subject: [patch] utils/shadow.el
X-Face: y,o:AU/bfCrS+zS/W"^puB!rT!G7?U1Mvp1Hd{6h^>X4@Xp5,|g+rG>4gv/iy^&x9`k#s!]X~{]Js>@A4c}4Z"Ct7=#1nPS:?mrWH8c#>$)>/Wc5yuX_OFO1(4cZM{LvsKWVQSl~/i>!n[-B*i-alq[/m\bsdy;W4p(_ic;$BE.oG@eJf@sr#x#}FT<=H8Ozu%g;JpVz:v_~vt[>ef/MeNeo3~D^R]]*bB7{HB|E1$wfMzw
X-Y-Zippy: ..  I don't understand the HUMOR of the THREE STOOGES!!
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/signed; protocol="application/pgp-signature";
 boundary="pgp-sign-Multipart_Mon_Sep_22_15:26:25_1997-1"; micalg=pgp-md5
Content-Transfer-Encoding: 7bit
From: Colin Rafferty <craffert@ml.com>
Date: 22 Sep 1997 15:26:38 -0400
Message-ID: <ocr202hqhe9.fsf@ml.com>
Lines: 78
X-Mailer: Gnus v5.5/XEmacs 20.3(beta23) - "Sarajevo"

--pgp-sign-Multipart_Mon_Sep_22_15:26:25_1997-1
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Sep_22_15:26:25_1997-1"
Content-Transfer-Encoding: 7bit

--Multipart_Mon_Sep_22_15:26:25_1997-1
Content-Type: text/plain; charset=US-ASCII

Items on the load-path have a trailing slash (/), and shadow.el from FSF 
adds an extra one.

I patched it to do the slashification correctly.


--Multipart_Mon_Sep_22_15:26:25_1997-1
Content-Type: application/octet-stream
Content-Disposition: attachment; filename="lisp/Changelog"
Content-Transfer-Encoding: 8bit

1997-09-22  Colin Rafferty  <craffert@ml.com>

	* utils/shadow.el (find-emacs-lisp-shadows): Removed extra slash
		  between directory and filename.


--Multipart_Mon_Sep_22_15:26:25_1997-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="shadow.patch"
Content-Transfer-Encoding: 8bit

*** lisp/utils/shadow.el~	Mon Sep 22 09:50:16 1997
--- lisp/utils/shadow.el	Mon Sep 22 15:21:54 1997
***************
*** 123,130 ****
  		;; This file was seen before, we have a shadowing.
  		(setq shadows
  		      (append shadows
! 			      (list (concat (cdr orig-dir) "/" file)
! 				    (concat dir "/" file))))
  
  	      ;; Not seen before, add it to the list of seen files.
  	      (setq files (cons (cons file dir) files))))
--- 123,132 ----
  		;; This file was seen before, we have a shadowing.
  		(setq shadows
  		      (append shadows
! 			      (list (concat (file-name-as-directory (cdr orig-dir))
! 					    file)
! 				    (concat (file-name-as-directory dir)
! 					    file))))
  
  	      ;; Not seen before, add it to the list of seen files.
  	      (setq files (cons (cons file dir) files))))

--Multipart_Mon_Sep_22_15:26:25_1997-1
Content-Type: text/plain; charset=US-ASCII

-- 
Colin

--Multipart_Mon_Sep_22_15:26:25_1997-1--

--pgp-sign-Multipart_Mon_Sep_22_15:26:25_1997-1
Content-Type: application/pgp-signature
Content-Transfer-Encoding: 7bit

-----BEGIN PGP MESSAGE-----
Version: 2.6.3i
Comment: Processed by Mailcrypt 3.4, an Emacs/PGP interface

iQCVAwUBNCbGbKCXWENFE/FpAQEJ0QP9HWEBjD8Wk+zeabnzKPXwkqlcibv9kdzL
FWZcP//7fC+jbJ4xy3r5R4LnBofBZr9usCh3mue6VnZrgG7tqWeLwaqbeiH9H7pQ
lKo3CjAUo7sBE/qLkJ5kjwHpfvgjpgDZ7dU2rMqQxFNAR4eZ+/aKbnDHEvYETiBb
L7MDVNzzFGI=
=gFBN
-----END PGP MESSAGE-----

--pgp-sign-Multipart_Mon_Sep_22_15:26:25_1997-1--

