diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-03-28 18:15:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-03-28 18:15:32 +0000 |
| commit | 8ab4da6cc028d2a7a2b39273626a3f9c86bcd0b1 (patch) | |
| tree | 135c2482c6e1ad95c5150aa2dc28eee033e73f17 /lisp/emacs-lisp | |
| parent | 1d7208e663e3339164942c4e5417fb75e350e8a4 (diff) | |
| download | emacs-8ab4da6cc028d2a7a2b39273626a3f9c86bcd0b1.tar.gz emacs-8ab4da6cc028d2a7a2b39273626a3f9c86bcd0b1.tar.bz2 emacs-8ab4da6cc028d2a7a2b39273626a3f9c86bcd0b1.zip | |
(list-load-path-shadows): Only ignore last copy of standard Lisp
directories.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/shadow.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el index 4d7477cb69e..0a7b435267c 100644 --- a/lisp/emacs-lisp/shadow.el +++ b/lisp/emacs-lisp/shadow.el @@ -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) |