Commit 8ab4da6c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(list-load-path-shadows): Only ignore last copy of standard Lisp

parent 1d7208e6
......@@ -214,10 +214,10 @@ buffer called `*Shadows*'. Shadowings are located by calling the
(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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment