Mercurial > hg > xemacs-beta
comparison lisp/dump-paths.el @ 272:c5d627a313b1 r21-0b34
Import from CVS: tag r21-0b34
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:28:48 +0200 |
parents | 966663fcf606 |
children | ca9a9ec9c1c1 |
comparison
equal
deleted
inserted
replaced
271:c7b7086b0a39 | 272:c5d627a313b1 |
---|---|
33 invocation-name))) | 33 invocation-name))) |
34 | 34 |
35 (setq package-path (packages-find-package-path roots)) | 35 (setq package-path (packages-find-package-path roots)) |
36 | 36 |
37 (let ((stuff (packages-find-packages package-path inhibit-package-init))) | 37 (let ((stuff (packages-find-packages package-path inhibit-package-init))) |
38 (setq late-packages (cdr stuff))) | 38 (setq late-packages (car (cdr stuff)))) |
39 | 39 |
40 (setq late-package-load-path (packages-find-package-load-path late-packages)) | 40 (setq late-package-load-path (packages-find-package-load-path late-packages)) |
41 | 41 |
42 (setq load-path (paths-construct-load-path roots | 42 (setq load-path (paths-construct-load-path roots |
43 '() | 43 '() |
44 late-package-load-path | 44 late-package-load-path |
45 '() | |
45 inhibit-site-lisp))) | 46 inhibit-site-lisp))) |
46 | 47 |
47 ;;; dump-paths.el ends here | 48 ;;; dump-paths.el ends here |