214 |
(setq tem (cdr tem))) |
(setq tem (cdr tem))) |
215 |
(if (> (length toplevs) 1) |
(if (> (length toplevs) 1) |
216 |
;; Cut off our copy of load-path right before |
;; Cut off our copy of load-path right before |
217 |
;; the second directory which has simple.el in it. |
;; the last directory which has simple.el in it. |
218 |
;; This avoids loads of duplications between the source dir |
;; This avoids loads of duplications between the source dir |
219 |
;; and the dir where these files were copied by installation. |
;; and the dir where these files were copied by installation. |
220 |
(let ((break (nth (- (length toplevs) 2) toplevs))) |
(let ((break (car toplevs))) |
221 |
(setq tem path) |
(setq tem path) |
222 |
(while tem |
(while tem |
223 |
(if (eq (nth 1 tem) break) |
(if (eq (nth 1 tem) break) |