# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1017339332 0
# Node ID 621fbfd0bf8734ef9217c1d7bedb3e8abf916b43
# Parent  f6eb1080b681eeae962f37e5b098136d89cd7f4c
(list-load-path-shadows): Only ignore last copy of standard Lisp
directories.

diff -r f6eb1080b681 -r 621fbfd0bf87 lisp/emacs-lisp/shadow.el
--- a/lisp/emacs-lisp/shadow.el	Thu Mar 28 18:14:53 2002 +0000
+++ b/lisp/emacs-lisp/shadow.el	Thu Mar 28 18:15:32 2002 +0000
@@ -214,10 +214,10 @@
       (setq tem (cdr tem)))
     (if (> (length toplevs) 1)
 	;; Cut off our copy of load-path right before
-	;; the second directory which has simple.el in it.
+	;; the last directory which has simple.el in it.
 	;; This avoids loads of duplications between the source dir
 	;; and the dir where these files were copied by installation.
-	(let ((break (nth (- (length toplevs) 2) toplevs)))
+	(let ((break (car toplevs)))
 	  (setq tem path)
 	  (while tem
 	    (if (eq (nth 1 tem) break)