mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
directories.
This commit is contained in:
Richard M. Stallman 2002-03-28 18:15:32 +00:00
parent 1d7208e663
commit 8ab4da6cc0
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/shadow.el
View file

@ -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)