/[emacs]/emacs/lisp/emacs-lisp/shadow.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/shadow.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by pj, Mon Jul 16 12:22:59 2001 UTC revision 1.13 by rms, Thu Mar 28 18:15:32 2002 UTC
# Line 214  buffer called `*Shadows*'.  Shadowings a Line 214  buffer called `*Shadows*'.  Shadowings a
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)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26