[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/shadow.el

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/shadow.el
diff -c emacs/lisp/emacs-lisp/shadow.el:1.12 
emacs/lisp/emacs-lisp/shadow.el:1.13
*** emacs/lisp/emacs-lisp/shadow.el:1.12        Mon Jul 16 08:22:59 2001
--- emacs/lisp/emacs-lisp/shadow.el     Thu Mar 28 13:15:32 2002
***************
*** 214,223 ****
        (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.
        ;; 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)))
          (setq tem path)
          (while tem
            (if (eq (nth 1 tem) break)
--- 214,223 ----
        (setq tem (cdr tem)))
      (if (> (length toplevs) 1)
        ;; Cut off our copy of load-path right before
!       ;; 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 (car toplevs)))
          (setq tem path)
          (while tem
            (if (eq (nth 1 tem) break)